Select Code to Download

while (<$in>)
{
...
       last;  #no need to look anymore!
   }
}

{   my %unique;

...
use List::Util qw(any uniq);

print $OUT sort uniq <$IN>;

my $prev = "";
foreach (sort <$IN>)
...
   print unless $_ eq $prev;
   $prev = $_;
}