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

my $function = create_f( 
    sub {
        my $var = shift;
        print ">> $var <<\n"
    }
);