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; } #### 12112, Fri Feb 28, 2003 22:59:57 12112, Fri Feb 28, 2003 22:59:58 12112, Fri Feb 28, 2003 22:59:59 12113, Fri Feb 28, 2003 23:00:00 12113, Fri Feb 28, 2003 23:00:01 12113, Fri Feb 28, 2003 23:00:02