sub foo {
    #...
    return ( 0, $msg );
}

my ( $errno, $errmess ) = foo();