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