open FOO, '<', $foo
    ||  die "Could not read $foo: $!\n";

##</code><code>##

if( $foo->is_ready() and $foo->needs_munging() ) {
    $status = $foo->munge();
} else {
    $status = $foo->status();
}

##</code><code>##

$status = $foo->is_ready() and $foo->needs_munging()
    ? $foo->munge() : $foo->status();