in reply to A different approach for bookmarks.

I really dont like 
open FIL, "|uniq >$file";

[download]
how about opening the file as usual and on your while loop: 
{
  next if %uniq{$content}++;
  print FIL $content, "\n";
}

[download]

In Section Cool Uses for Perl