#!/usr/local/bin/perl

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

$real_year=$year+1900;
$real_month=$mon+1;

print "The local time is\t$hour:$min:$sec\n";

print "The date is \t\t0$real_month/$mday/$real_year\n";

print "Day of the week is\t$wday\n";

print "Day of the year is\t$yday\n";

print "isdst is $isdst\n";