|
#!/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"; |