Select Code to Download

#!/usr/bin/perl
use warnings;
...
   print { $fh{$let} } "$word\n";}
}
__END__

#!/usr/bin/perl
use warnings;
...
   system("sort -u letters/$file > letters/$file.txt");
}
__END__