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;

<snip>
else {
    print "USING LAST ELSE\n";
    $size_input = ( int 25 * ( 1024**2 ) ) ;
    $size_input =~ tr /\000//d ;
    sub wanted ;
    File::Find::find({wanted => \&wanted}, $fs_input ) ;