Select Code to Download

foreach my $path ( @local_list ){
  opendir my $dirh,$path or die "Can't open $path";
...
      -s $file  ;
  }      
}

use File::Find::Rule;
use File::Basename;
...
      -s $file,
  ;
}