Select Code to Download

#
# remember everything, probably uses too much memory.
...
        return 0;
    }
}

while (<>) {
    print unless seen_bucket($_);
...
$ perl -le 'for(1..10){for(1..401){print}}' | perl dup.pl | wc -l
   4010