Select Code to Download

# this is properly placed where perl can find it
use Mymodules::Auth;
...
# this will return 0 or 1.
my $auth = Mymodules::Auth->auth($username, $passwd);

package Mymodules::Auth;
use strict;
...
   }
}
1;