for (my $i=1135202400; $i <= 1188252000; $i++) { print ">$i<\n" unless ($i%86400); }