use strict;
use CGI;
my $q = CGI->new(); # $q now "isa" CGI object.
print $q->isa( 'CGI' ) ? "Yes it is\n" : "Nope\n";
print $q->isa( 'DBI' ) ? "Yes it is\n" : "Nope\n";