print "Content-type: text/html

";
print << HTML
HTML-Code
HTML
open FILE,'<',$file or  die $!;
print while <FILE>;
close FILE;
print  << HTML;
Der Rest
HTML