# print all files in the directory (an overblown and limited 'ls' or 'dir'
    perl -e '-f $_ and print "$_ " for glob(shift)' ./*

##</code><code>##

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