perl -e "print join(',', glob(shift))" *