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