sub getErrorText {
    local( $! )= 0+shift(@_);
    return "$!";
}

##</code><code>##

$errno= $!= 5;
print 0+$errno," $errno\n";