perl -e "-f $_ and print $_.$,.$/ for glob(shift)" ./*