#!/usr/bin/perl

use strict;
use warnings;

my (@time_array) = (localtime(time))[2,1];

print join(":", @time_array);