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

sub MultipleChoice {
    my $arg = @_ ? shift : die "Where is arg?";
    my $opt = @_ ? shift : 'default';
}

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

##</code><code>##

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

  DB<8> $g = 5

  DB<9> x $g
0  5
  DB<10> x s1( $g )
0  1
  DB<11> x $g
0  1