Help for this page
$ ./test < textfile | sort | uniq
open(IN,"<$file") or die "Cannot read $file: $!\n"; my @content = <IN> +; close(IN); close(IN);