#!/usr/local/bin/perl -w
#
# test_date.pl

#$version="v1.00/January 28, 2000";


($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
if ($year >= 100 and $year <2000) { $year = $year + 1900; }
$mon++;
print "#Message from $0\n";
print "# Date of message: $year/$mon/$mday $hour:$min\n";
print STDOUT ("locatime function return=",localtime(time),"\n");
undef $sec;
undef $isdst;
undef $wday;
undef $yday;