Select Code to Download

perl -MFile::Find -le"chdir($ARGV[0]); find { wanted=>sub{ -d || print
+ /..(.*)/ }, no_chdir=>1 }, '.'" C:\users\User\Music >filelist.txt

perl -MFile::Find::Rule -le"chdir($ARGV[0]); print for File::Find::Rul
+e->file->in('.')" C:\users\User\Music >filelist.txt