Select Code to Download

sub doForEachFile {
   if ($File::Find::name !~ /\.[oa]$/) {
      #we have what we want...do what ever;
   }
}