sub wanted;
File::Find::find({wanted => sub { wanted( $size_input ); } }, $fs_input ) ;


##</code><code>##


 File::Find::find({wanted => sub { wanted->( $size_input ); } }, $fs_input ) ;
    
<snip>
else {
        my ( $size_input ) = shift @_ ;    ###-- Freeze the arg --#
       
        my ($dev,$ino,$mode,$nlink,$uid,$gid);
       (( $dev,$ino,$mode,$nlink,$uid,$gid ) = lstat($_) ) &&
       ( $dev >= 0 ) &&
       !( $File::Find::prune |= ($dev != $File::Find::topdev ) ) &&
       print "MIDDLE SZINPT:\t",($size_input),"\n", &&
       ( int(((-s _) + 1023) / 1024 ) > $size_input ) &&
       push ((@large_files), $name);
    }
}    ###-- End sub --###

print scalar @large_files;

##</code><code>##


__OUTPUT__
MIDDLE SZINPT:  26214400
MIDDLE SZINPT:  26214400
MIDDLE SZINPT:  26214400
0