Select Code to Download

#!/usr/bin/perl 

...
close(TEXTWRITE); 
print " Hello, $firstname $lastname.\n"; 
print "</body>\n</html>";

#!/usr/bin/perl 
use CGI qw(:standard); 
...

sub accessDenied { 
print "You have been denied access to the server."; }