...
my($foo) = blah($yadda);
$foo     = barf->new()  unless $foo;
$foo     = gazonkly()   unless $foo;
return ERROR_CODE       if $foo < $boo;
...