Select Code to Download

use strict;
use warnings;
...
while(<$haystack_infh>) {}

printf "Elapsed time: %-.03f\n", time-$t0;

use strict;
use warnings;
...
        chomp $name;
    }
}

my %want;
while(<$name_infh>) {
...
        last if ! keys %want;
    }
}