$ perl -e'$! = 111; print "$!\n"'
Connection refused