Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
# mymod.pm
...
            }
            &dienice("Could not connect to unknown servername of: $ser
+vername");
}
  2. or download this
    sub isadmin {
    # This can takes zero or one parameter.
...
    return $isadmin;

}
  3. or download this
    #!/usr/local/bin/perl
use CGI qw(:all);
...
print "</body></html>";
exit;
}