use CGI qw(:standard);

my $param1 = param('param1');
my $param2 = param('param2');
my $param3 = param('param3');