Select Code to Download

sub secure {
    if ($pass eq $pwc) {
...
    &header;
    print qq~<table class="heading">
    etc.

#use CGI (param); # CHANGE THIS TO...
use CGI;
...
    ...
    etc~;
}

#!/usr/bin/perl -w

...
</html>\n~;
   exit;
}