Select Code to Download

#!/opt/perl5/bin/perl -w
use strict;
...
  }#END OF FOREACH STATEMENT
}## END OF WHILE STATEMENT ##
close FH;

$VAR1 = {
          '25710' => {
...
                       'Catalog Code' => 'UNIX',
                       'Function ID' => '0x8011'
                     },