Help for this page
open FIL, "|uniq >$file";
{ next if %uniq{$content}++; print FIL $content, "\n"; }