Login
Password

# portions of cgi code my $doit = param('login'); my %functions = ('login' => \&do_login, 'logout' => \&do_logout, ); if defined($doit) { &{ $functions{$doit} }; } else { default_page(); }