Select Code to Download

use File::Find;   # these should work on any platform : )
use File::Copy;
...

find {wanted => \&checker}, $source;