######### index.pl
#!C:/perl5.8/bin/perl.exe

use strict;
use warnings;
use diagnostics;
use CGI::Carp qw(fatalsToBrowser);

use lib 'C:/apache/www/modules';

#use Login;
use autouse Edit  => qw(&login &login2);

my %actions = (
   default  => \&default,
   login    =>  \&login,
   login2    =>  \&login2
);

# Thanks to fruiture for pointing this out...
$query = 'default' unless exists $actions{ $query };

&{ $actions{$query} }

sub default {
  # show default page
}

######### Login.pm
use strict;
use warnings;
use diagnostics;
use CGI::Carp qw(fatalsToBrowser);

sub login {
  # display login page
}

sub login2 {
  # process login
}

1;

##</code><code>##

# The package declaration and the code to
# do the exporting are absent in Login.pm
# Do I need to put them in?

package Login;

require Exporter;
our  @ISA = qw(Exporter);
our @EXPORT = qw(&login &login2);

##</code><code>##

use autouse Edit  => qw(&login &login2);

##</code><code>##

use autouse Edit  => qw(login login2);