Select Code to Download

my %seen;

while (<>)
...
     next if ($seen{$_}++);
     print;
}

my $last;

while (<>)
...
     $last = $_;
     print;
}