# Set your timezone to America/New_York before running.
# In this time zone, DST ends on Nov 2, 2008 at 2:00 AM.

# "Sets" the current time to 5 seconds past midnight on Oct 28, 2008.
use Time::Local qw( timelocal );
my $time = timelocal(5,0,0,28,10-1,2008);

use POSIX;
print( strftime( "%m-%d\n", localtime( (24*60*60) * $_ + $time ) ) )
   for 1..30;