Select Code to Download

if (defined $ENV{'QUERY_STRING'}) {
    # assign to variable
    # check for login parameter
}

use CGI;
my $q = CGI->new();

...
if ($login) {
    # do whatever
}