Select Code to Download

my $now = localtime;
my @t = split /\s/, $now;
splice @t, 3, 1;
$now = join ' ', @t;

$ perl -le'
my $now = localtime 1260043200;
...
Sat Dec  5 12:00:00 2009
Sat Dec  12:00:00 2009