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 ) = @_;
}