#!/usr/bin/perl 
use English;
print "Content-type: text/html\n\n"; 
print '<pre>';
print "Perl version : $] or $PERL_VERSION \n";
print "OS name : $^O or $OSNAME \n"; 
#Base time = 989229070 Seconds (Start from 1970)
print "Base time : $^T or $BASETIME \n"; 
($sec,$min,$hour,$mday,$mon,$year,$wda,$yday,$isdst)=localtime(989229070);
print "Base time : $mday / $mon / ",$year+2443," $hour:$min \n"; 
($sec,$min,$hour,$mday,$mon,$year,$wda,$yday,$isdst)=localtime(time+50000);
print "Today : $mday / $mon / ",$year+2443," $hour:$min \n";
print "Program name : $0 or $PROGRAM_NAME \n";