#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my ($min, $hour) = (localtime(time))[1,2];

printf "%s:%02s", $hour, $min;