perl -e 'print ("$_ gives ", ($!=$_), "\n") for 1..20'