#!/usr/bin/perl
use File::Find;
use strict;
use warnings;
my $path = shift || '.';
find($path);

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