#!/usr/bin/perl -w

use strict;
use warnings;

my $time = time;
my $timestr = localtime($time);
print "Current date/time is $timestr\n";