print "Content-type:text/html\n\n"; # Or $cgi->header...

open(my $DF,'<',$file) or print $cgi->h1("Error opening $file:$!");

while (defined (my $line = <$DF>))
{
        print $line, $cgi->br();
}
close $DF;