Select Code to Download

open my $idx, '<', 'index.file' or die "Can't open 'index.file' for re
+ading: $!";
my %index;
...
    chomp;
    $index{$_} = 1;
}

while (<$in>) {
    if ($index{$.}){
...
    }
    print $tmp $_;
}