Select Code to Download

my $q = CGI->new;
show_name();
...
sub show_name {
    print $q->param('name');
}

my $q = CGI->new;
show_name($q);
...
    my $q = shift;
    print $q->param('name');
}