Select Code to Download

my $targets_file = '/Users/me/test.txt';  # (I'd rather get this from 
+@ARGV)
open( my $urdu_words, '<', $targets_file )  # (2nd arg might need ':ut
+f8' too)
...
for my $match ( sort keys %matches ) {
    print $output "Matches found for target: $match\n $matches{$match}
+\n";
}