#!/usr/bin/perl
use strict;
use warnings;
use File::Find;

use vars qw/*name *dir *prune/ ;
*name   = *File::Find::name ;
*dir    = *File::Find::dir ;
*prune  = *File::Find::prune ;

my $size_input;
my $fs_input = '/tmp';
    $size_input = ( int 25 * ( 1024**2 ) ) ;
    $size_input =~ tr /\000//d ;
    sub wanted ;
    File::Find::find({wanted => \&wanted($size_input)}, $fs_input ) ;

sub wanted {
    my ($size_input ) = @_ ;
    print "FSINPT:\t",$fs_input,"\n";
    print "SizeINPT:\t",$size_input,"\n";
    return;
}    ###-- End sub --###