## Login.pm
package Login;
use base qw(Exporter);
@EXPORT_OK = qw(login login2);
sub login { ... }
sub login2 { ... }
1;
## main:
use autouse Login => qw(login login2);
...