...
open(LOG, "<$logfile") or die "$logfile: $!";
print "<pre>";
print <LOG>;
print "</pre>\n";
close(LOG);