Select Code to Download

my %param = 
    map { $_ => [$cgi->param($_)] } 
    $cgi->param;

#!/usr/bin/perl -wT
use strict;
...
        ? \@values
        : $values[0];
}