1#!/usr/bin/perl 2 3print "Content-type: text/html\n\n"; 4 5print "<HTML>"; 6 7print "<HEAD>"; 8print "</HEAD>"; 9 10print "<FRAMESET ROWS=\"*,2\" BORDER=0 FRAMEBORDER=0 FRAMESPACING=0>"; 11 print "<FRAME SRC=\"./show.pl\" NAME=\"frame1\" SCROLLING=yes RESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0>"; 12 print "<FRAME SRC=\"./poll.pl\" NAME=\"frame2\" SCROLLING=no NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0>"; 13print "</FRAMESET>"; 14 15print "<NOFRAMES>"; 16 17print "<BODY BGCOLOR=\"white\">"; 18 print "<META HTTP-EQUIV=\"-REFRESH\" CONTENT=\"1;URL=./show.pl\">"; 19print "</BODY>"; 20 21print "</HTML>";