##
package Foo;
use strict;
use vars qw(ISA);
@ISA = 'Bar';
...
####
package Foo;
@ISA = 'Bar';
use strict;
...
####
package Foo;
use strict;
@Foo::ISA = 'Bar';
...
####
package Foo;
use strict;
use base 'Bar';
...