#!/usr/local/bin/perl

use strict ;

sub make {
	my $foo = 3 ;

	my $sub = sub { print "sub called\n@_\n$foo\n", $foo + 1, "\n" } ;

my $n = eval <<'CODE' ;
	my $s = $sub ;
	sub { $s->(@_) }
CODE
	return $n ;
}

my $m = make() ;

$m->('bar') ;

