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

##</code><code>##

$ perl -le'
my $now = localtime 1260043200;
print $now;              
my @t = split /\s/, $now;
splice @t, 3, 1;
$now = join " ", @t;
print $now;
'
Sat Dec  5 12:00:00 2009
Sat Dec  12:00:00 2009