Select Code to Download

    my $q   = CGI->new();
    my %prm = $q->Vars();
...
            do_login($q,%prm);
        }
    }

    my $q   = CGI->new();
...
...
            do_login($q);
        }
    }