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