[0] Perl> `dir /b >junk.txt`;;
[0] Perl> @d2 = do{ local @ARGV = 'junk.txt'; <> };;
[0] Perl> print for @d2[ 0 .. 10 ];;
12balls.pl
12days-enc.pl
12days.pl
1Mx4096.db
2.log
200083.pl
216398.pl
250802.pl
275606.pl
27x2.wav
282393.pl