use CGI (); # at top of script/module

# transparently take over function param() if desired
sub param {
    my $param = shift || return;
    my @values = CGI::param($param);
    return '' unless @values;
    return wantarray ? @values : $values[0];
}