Select Code to Download

use CGI;
use Data::Dumper;
use strict;
...
$h->{'form'} = [ 4 .. 6 ];

print Dumper($h, $q);