Select Code to Download

my @names = param();
my %data;
...
   print "$key => $data{$key}<br>\n";
}
# all goodies are in %data

#!/usr/bin/perl 

...
{
   print "$key => $data{$key}<br>\n";
}