#!/usr/bin/perl -s

%urls=();

open(infile,"u:/netscape/users/martian/bookmark.htm");
open(outfile,">>u:/netscape/users/martian/bmtemp.tmp");

while(<infile>) {
  if ( m/HREF="(.*)" ADD/ ) {
    if ( $urls{$1} ) {
    } else {
      $urls{$1} = 1;
      print outfile "$_";
    }
  } else {
    print outfile "$_";
  }
}

close infile;
close outfile;

unlink "u:/netscape/users/martian/bookmark.htm";

rename "u:/netscape/users/martian/bmtemp.tmp", 
       "u:/netscape/users/martian/bookmark.htm";