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