###Method 1
use CGI;
my $query=new CGI;
my $value=$query->('value');
my %param=(value=>$value);
test(%param);

package Test;
sub test
{
my %param=@_;
#do stuff
}

##Method 2
##main script
test();

package Test;
sub test
{
use CGI;
my $query=new CGI;
my $value=$query->('value');
##do stuff;
}