Select Code to Download

#/usr/bin/perl -w
use strict;
...
my @uniq = grep !$seen{$_}++, <>;

print map "$_\n", @uniq;

print map "$_: $seen{$_}\n", @uniq;