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

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