my $q = CGI->new();

sub something {
    $q->param()....
}