sub paint {
my $color = shift;
my $ref = sub {
my $object=shift;
print "Paint the $object $color.\n"; # $color still in scope
};
return $ref;
}
my $p1=paint("red");
my $p2=paint("blue");
$p1->("flower");
$p2->("sky");