Add autodie since you're not error checking, all one line

use File::Find; use autodie; open (OUT, ">filelist.txt");  find( sub {
+     $temp = $File::Find::name;     $temp =~ s/C:\/users\/User\/Music
+\/(.*)/$1/gi;     print OUT "$temp\n"; }, "C:/users/User/Music/");  c
+lose OUT;
[download]