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