open (SOMEOUT,">&STDOUT");
print SOMEOUT "HTTP/1.0 200\n";
print SOMEOUT "Content-type: text/html\n\n";
print SOMEOUT "Text goes here\n";
print SOMEOUT "$line";
print SOMEOUT "<SCRIPT> scroll(); </SCRIPT> \n ";
close (SOMEOUT);
open (SOMEOUT,">&STDOUT");