my $q   = CGI->new();
    my %prm = $q->Vars();
...
    if ($prm{'action'} eq 'Login') {
        if ($prm{'mid'}) {
            $prm{'warning'} = 'Already logged in, bonehead.';
            show_member($q,%prm);
        } else {
            do_login($q,%prm);
        }
    }