package C; 
use overload 'bool' => sub { 0 };
use overload '=='   => sub { 0 }; 
sub new { bless {} }

package main; 
my $c = C->new;

print "\$c is not equal to zero.\n" unless $c == 0; 
print "\$c is not true.\n"          unless $c;