Select Code to Download

sub create_f {
    my $func = shift;
    return sub {
...
                  my $var = shift;
                  print ">> $var <<\n";
              } );

sub create_f {
    my $func = shift;
...
$function->();
__END__
>> xpto <<