perl -MO=Deparse -e 'sub foo {return $bar || $baz}'
sub foo {
    return $bar || $baz;
}