package Foo;
use WarnOver;
$foo = bless {};
$bar = bless {}; 
print "equal" if $foo == $bar; # two warnings!