@ARGV = qw(/etc/aliases); 
# open STDOUT, ">alias.html" or die "blah: $!"; 
use HTML::Entities; 
use CGI qw(:all); 
print 
  start_html("Our new aliases"), 
  pre(join "", map { encode_entities($_) } <>), 
  end_html;