sort.pl 187 Bytes
#!/usr/bin/perl

use strict;
use warnings;

my %tab = ();

while(<STDIN>){
	chomp;
	$tab{$_} = 1;
}

my @sort = sort { $a cmp $b ; } keys %tab;

for my $key (@sort){
	print $key."\n";
}