C:\>perl56.exe -Te "print join', ',glob'*.txt'"
file1.txt, file2.txt, file3.txt