opendir DH, "Y://perlscripts2/software/perl2/music" or die $!; # open current directory
while($_ = readdir(DH)){
    # don't evaluate special dirs '.' & '..'
    next if $_ eq "." or $_ eq "..";