use warnings;
use strict;
use CGI qw(:standard);

print header();
print start_html(-title=>"Nasty");
open(FOO, "<", "/etc/passwd")
        or die "Couldn't open\n";
print <FOO>;
close(FOO);

print end_html();