TMTOWTDI

my($min,$hour) = (localtime())[1,2];
my $time = sprintf("%02u:%02u", $hour, $min);
use POSIX ();
my $time = POSIX::strftime("%H:%M", localtime());
use POSIX ('strftime');
my $time = strftime("%H:%M", localtime());