Select Code to Download

use CGI qw/:standard/;
my %params =  map { $_ => scalar param($_) } param();
print '-->' . $params{'listname'}. '<--' . "\n";