local $\ = "\n"; 
$! = 3;       # error number
print $!;     # error message
print 0+$!;   # error number