sub create_f {
        my $func = shift;
        return sub {
                my $var = "xpto";
                $func->( $var );
        }
}

my $function = create_f(
        sub { print ">> $_[0] <<\n" }
);


$function->();

##</code><code>##

sub create_f {
        my $func = shift;
        my $var = shift;
        return sub {
                $func->( $var );
        }
}

my $function = create_f(
        sub { print ">> $_[0] <<\n"  }, 'xpto'
);


$function->();