Select Code to Download

#!/usr/local/bin/perl -w

...
   my $d = new Data::Dumper ([\%prochash], [qw(prochash)]);
   print $d->Dump ();
}

$prochash = {
              '-b' => 2,
...
                        '-a1' => 1
                      }
            };