Select Code to Download

while (<$IN>) {
    if (/(^w.*)/) {
...
        last;
    }
}

sub GetDFSdata {
    #...
...
        print $OUT "Index Names: $str\n";
    }
}