Help for this page

Select Code to Download

Select or download this
```
dir_search(*D,"$path$cont");
```

Select or download this

#!/usr/bin/perl -w
#
...
     open(LOG,">>$log")|| die "Error:$!\n";
     print LOG "$file\n";
}