TMTOWTDI

my($min,$hour) = (localtime())[1,2];
my $time = sprintf("%02u:%02u", $hour, $min);

• Or:

use POSIX ();
my $time = POSIX::strftime("%H:%M", localtime());

• Or:

use POSIX ('strftime');
my $time = strftime("%H:%M", localtime());