Select Code to Download

opendir DH, "Y://perlscripts2/software/perl2/music" or die $!;
while($_ = readdir(DH)){
    ...
    if (-f $_) {

        open FH, "<$_" or die $!;
        print "output for file: $_\n";
...
                }
                close FH; 
            }