Select Code to Download

use strict;

...
    print unless exists( $known{$key} );
}
close F;

little_perl_script.pl  file.1  file.2  > target.set