4.4BSD/usr/src/contrib/perl-4.036/atarist/test/err

$! = 0 + 0;
print $!, "\n";
$e = $! + 0;
print $e, "\n";