Select Code to Download

#!/usr/bin/perl -w

...
print "\$obj is Bar or subclass of Bar\n" if($obj->isa('Bar'));
print "\$obj is Foo or subclass of Foo\n" if($obj->isa('Foo'));