package AAIB::Login;
# this is a little login routine that I'm using
use strict; 
use Exporter;
my @ISA = ('Exporter');
my @EXPORT_OK = qw(authenticate);
# I've also tried @EXPORT = qw(authenticate);
# etc ...(returns a hash) 

##</code><code>##

use strict;
# use a bunch of other modules
use AAIB::Login qw(authenticate);
my %usr = authenticate();