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

my ($min, $hr, $day, $mon, $yr) = (localtime())[1..5];

print "$min $hr $day $mon $yr\n";