$ perl -wle 'print +(bless {})->isa("main")'
1