Select Code to Download

use File::Find;
find( sub {
...
    my $size = -s;
    print "$File::Find::name $size\n" if $size > 51200; 
  }, $path );