Select Code to Download

#!/usr/bin/perl
use strict;
...
foreach my $key (sort keys %inv) {print "$key: \t$inv{$key}\n";}

exit;