Select Code to Download

sub foo {
    print "foo @_\n";
...
foo();
$r1->('baz');    # This call has an extra frame in the call stack. 
$r2->('baz', 'qux');