#!/usr/bin/perl

use warnings;
use strict;

#     0    1    2     3     4    5     6     7     8
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

print "$hour:$min\n";

1;