#!/usr/bin/perl -w

$t = time();

$now = localtime($t);

print "Time is: $now\n";