Select Code to Download

#!/usr/bin/perl

use File::Find;

use strict;
use warnings;

 sub filefind
 {
...
  find(\&mysub, @dirs);
  return @files;
 }

   if ($_ =~ $name)
   {
...
    push @files, $_;
 
   }