Select Code to Download

#!/usr/bin/perl

...
}

exit 0;

Operation `0+': no method found, argument in overloaded package Dummy 
+at 5perltie.pl line 42.

use overload '==' => \&iseq, '0+' => \#
...
sub num  { print "Someone wants me (" . $_[0]->[0] . ") in numeric con
+text\n"; }

Someone wants me (1) in numeric context
Someone wants me (1) in numeric context
...
4 == 1
4 != 3
4 == 4