Select Code to Download

sub cgiapp_get_query {

    my $self = shift;
...
    my $q = CGI->new;
    return $q;
}