13 lines
190 B
Perl
13 lines
190 B
Perl
|
sub printHeaders(){
|
||
|
|
print<<'eof';
|
||
|
|
Content-Type: text/html
|
||
|
|
<HTML>
|
||
|
|
<HEAD>
|
||
|
|
<TITLE>Page</TITLE>
|
||
|
|
</HEAD>
|
||
|
|
<BODY background="back.gif">
|
||
|
|
eof
|
||
|
|
return (1);
|
||
|
|
}
|
||
|
|
|
||
|
|
|