open (...) or ($errormsg = $!, $status = -1);

##</code><code>##

open (...) or do {
    $errormsg = $!;
    $status = -1;
}