if ( $condition ) {
    this_foo();
    that_bar();
}
else {  #or "elsif ( $condition ) {"
    a_new_foo();
    another_bar();
}

##</code><code>##

$object->method( ARG1 => $this,
                 ARG2 => $that,
                 ARG3 => $else
                ) #if not packing put ";" here
->pack( ARGX => $whyzee );