#
#     secondssince.pl
#
#
# a simple perl script which tells the amount of seconds since Jan 1, 1970
#
#

$time = time();

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

# use ' inside the string to deliniate the attribute 
# values in the html to avoid ending the strind inadvertantly
print "<HTML>\n<HEAD>\n\t<TITLE>Seconds Since Jan 1, 1970</TITLE>\n";
print "<META HTTP-Equiv=refresh Content='1; URL=secondssince.pl'></HEAD>\n";
print "<BODY BGCOLOR='white'>\n\n<TABLE WIDTH='100%' HEIGHT='100%'>\n\t";
print "<TR><TD VALIGN='middle' ALIGN='center'>\n\t";
print "<FONT FACE='trebuchet ms,arial,helvetica'>";
print "Seconds since January 1, 1970<BR><FONT SIZE='+2'>";
print "$time";
print "</FONT></FONT>\n</TD></TR>\n</TABLE>\n</BODY>\n</HTML>";
exit(0);