Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
 
close $in;
close $out;

#!/usr/bin/env perl
use strict;
use warnings;
...
for my $entity (sort keys %freq) {    
    printf OUT "%-20s %10s \n", $entity, $freq{$entity};
}