Select Code to Download

#! /usr/bin/perl -w

...
}

print "$_\n" for keys %seen;

    print "$_\n" while ($_ = each %seen);

  sort -u -o uniq.txt <dups.txt