use strict; use warnings; use base 'CGI'; print "@main::ISA\n"; # CGI our @ISA; print "@ISA\n"; # CGI my @ourISA = do { no strict 'refs'; @{__PACKAGE__ . '::ISA'} }; print "@ourISA\n"; # CGI