- or download this
#!/usr/local/bin/perl
# mymod.pm
...
}
&dienice("Could not connect to unknown servername of: $ser
+vername");
}
- or download this
sub isadmin {
# This can takes zero or one parameter.
...
return $isadmin;
}
- or download this
#!/usr/local/bin/perl
use CGI qw(:all);
...
print "</body></html>";
exit;
}