1#! /usr/bin/perl 2 3use strict; 4use locale; 5 6open(my $in_fh, '<', $ARGV[0]) || die; 7chop(my (@words) = <$in_fh>); 8close($in_fh); 9 10$" = "\n"; 11my (@result) = sort @words; 12 13print "@result\n"; 14