#!/usr/bin/perl
print"Content-type:text/html","\n \n";
$Webmaster ="root"
($seconds,$minutes,$hour)=localtime(time);
print "","\n";
print "digital clock","\n";
print "
print "current time
","\n";
print "time $hour$minutes$seconds";
print "
","\n";
print "","\n";
exit(0);