use Date::EzDate; $now = Date::EzDate->new("feb 28 2003 10:59 PM"); $i=0; while ($i<120) { print("$now->{'epochday'}, $now->{'full'} \n"); $i++; $now->{'epochsecond'}+=1; }