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

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