Help for this page
package MyAuth; ... exit; } }
#!/usr/bin/perl use MyAuth; MyAuth::Authorize; # below this line I am authorized # do whatever else