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