package Foo;

use base 'CGI::Application';
use Bar;

print "@ISA\n";
@ISA = ("Bar");
print "@ISA\n";