Help for this page

Select Code to Download

Select or download this

use File::Find;

...
}, "C:/users/User/Music/");

close OUT;

Select or download this

    $temp = $File::Find::name;
    $temp =~ s/C:\/users\/User\/Music\/(.*)/$1/gi;
    print OUT "$temp\n";