perl -E" say for glob qq[$ARGV[0]/*] "