#!/usr/bin/perl -w
print "current time in epoch is : ". time(). "\n";
print "current time is : ". localtime(time()). "\n";
my ($sec,$min,$hour,$day,$month,$yr19,@rest) = localtime(time);
print "----------------------------------------\n";
print "Sec : ". $sec . "\n";
print "Min : ". $min . "\n";
print "Hour : ". $hour . "\n";
print "Day : ". $day . "\n";
print "Month : ". $month . "\n";
print "Year : ". $yr19 . "\n";
Output
current time in epoch is : 1355483046
current time is : Fri Dec 14 16:34:06 2012
-------------------------------------------
Sec : 6
Min : 34
Hour : 16
Day : 14
Month : 11
Year : 112
