use strict;
my $now = scalar(localtime);
print "It is $now\n";