my %params =  map ($_ => param('$_'),param());
print '-->' . $params{'listname'}. '<--' . "\n";

##</code><code>##

m1:/usr/local/nmail/cgi-bin# ./maillist.pl listname=Construction wtf 
-->wtf<--