######### Main script 
######### index.pl

#!C:/perl5.8/bin/perl.exe
use CGI qw(:cgi);

my $query = get_param('action') || 'default';

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

&{ $actions{$query} }

sub default {
  # show default page
}

sub login {
   require "login.pl";
}

######### Auxiliary script
######### login.pl

sub do_login {
   #process login
}

1;