Select Code to Download

{
    my $cgi = CGI->new();
...
        return $dbh;
    }
}

MAIN: {
    my $result = do_something();
...
}

# and so on