#!/usr/bin/env perl -l

use strict;
use warnings;

use Time::Piece;

my $t = localtime($^T);

print 'Month: ', $t->month;
print 'Year:  ', $t->year;