Select Code to Download

sub QuickAndDirty { return SubSubroutine( shift, 3, shift, 'etc' ) }

...
    die "Expected 3 args" unless 3 == @_;
    my ( $arg1, $arg2, $arg3 ) = @_;
}

  DB<7> sub s1 { $_[0] = 1 }

...
0  1
  DB<11> x $g
0  1