Select Code to Download

#!/usr/bin/perl
# linux only
...
   print "$File::Find::name\n";  #name with full path
}

#!/usr/bin/perl
use warnings;
...
#$rule->name( '*.pm' );
my @files = $rule1->in($directory);
print "@files\n";