use CGI qw(param);
...
my $param1 = param('one');
...