use Want; sub foo { print "Entering foo\n"; bar(); print "Leaving foo\n"; return "foo did this"; } sub bar { print "Entering bar\n"; print "Leaving bar\n"; Want::double_return(); return "bar did this"; } print "About to call foo()\n"; my $r = foo(); print "foo() returned '$r'\n"; #### About to call foo() Entering foo Entering bar Leaving bar foo() returned 'bar did this' #### sub EVENT { $kernel->post( shift, event => @_ ); Want::double_return(); return; }