use Time::Local;

for (timelocal(0,0,0,1,0,100)..timelocal(59,59,23,1,0,100))
{
     my ($s,$m,$h) = localtime($_);
}