my $now = localtime;
$now =~ s/(\d\d:){2}\d\d//;
$now =~ s/\s{2,}/ /;