Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  push @out,$_ unless $saw{$_}++;
}
print join ":",@out;