#! /usr/bin/perl

use strict;
use warnings;

use Date::Manip qw( UnixDate );

while (1) {
	UnixDate("15 Jul 2010", "%s") for (1 .. 10_000);
	sleep(1);
}
