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