my ($min,$hours) = (localtime)[2,3];
my $now = $hours . sprintf ("%02",$min);