use CGI qw(:standard); # Other modules my ($param1, $param2, $param3); sub set_params { $param1 = param("param1") || 0; $param2 = param("param2") || 0; $param3 = param("param3") || 0; } set_params(); # Whatever other code you want