Select Code to Download

my%hash = (Script => "Perl",
              script_1=>"Ruby",
              script_2=> "PHP");
...
 for my$k (keys %{my$href}) {
          print "$k => ${$href}{$k}\n";
        }