sub create_closure {
   my ($obj) = @_;
   return sub { print($obj, $/); };
}


my $sub;
{
   my $existing_obj = 1234;
   my $sub = create_closure($existing_obj);
}
&$sub();  # Prints 1234, even though $existing_obj is out of scope.