Select Code to Download

open (my $fh, '<', '<insertfilepath>') or die "Open failed : $!";
undef($/);
while (<$fh>) {

#!/usr/bin/perl
use strict;
use warnings;
...
for (sort(keys %word)) {
    print "$_ occurred $word{$_} times\n";
}