my $q = CGI->new()

sub foo {
    my $thing = $q->param('thing');
}