package Foo;
                                                                                
use base 'CGI::Application';
print "@ISA\n";
use Bar;
@ISA = ("Bar");
print "@ISA\n";

# at this point Foo only inherits from Bar

__END__
CGI::Application
Bar

##</code><code>##

use CGI::Application;
use Bar;
@Foo::ISA = qw(CGI::Application Bar);