Free Web Hosting by Netfirms
 Web Hosting by Netfirms | Free Domain Names by Netfirms

Date_time

#!/usr/bin/perl

print "Content-type: text/html\n\n";

 

 use Time::localtime;

  #printf "Year is %d\n", localtime->year() + 1900;

  $now = ctime();

 $yearme = localtime->year() + 1900;

 $mytime = localtime();

 print"<html>";

 print"<b>$mytime   $now  $yearme   </b>";