Select Code to Download

$thispath = 'd:\my documents\my other stuff\*.*';
print "thispath is [$thispath]\n";
...
foreach $thisfile (@thisdir) {
  print "    Found [$thisfile]\n";
}

thispath is [d:\my documents\my other stuff\*.*]
    Found [d:./my]
    Found [docsmy]

12/11/2000  07:49p      <DIR>          .
12/11/2000  07:49p      <DIR>          ..
...
12/11/2000  07:53p                   0 out.txt
12/11/2000  11:00a               1,125 populate.pl

thispath is [.\*.*]
    Found [.\dir.pl]
    Found [.\dir2.pl]
    Found [.\out.txt]
    Found [.\populate.pl]