Select Code to Download

#!/usr/bin/perl

use warnings;
...
#    print "$i == $descs{$i} == $salesAccts{$i} \n";
#}
1;

#!/usr/bin/perl
require 'uprod.pl';

...
    chomp;
    print "$_, $descs{$_}, $salesAccts{$_}\n"
}