perl -e "print join(',', @ARGV)" *.*