DB<1> $dir = '.'
  DB<2> print "$_\n" while <$dir/*.c>
./bar.c
./baz.c
./foo.c