package Foo;
use strict;
use vars qw(@ISA @EXPORT_OK);
@ISA = 'Bar';
@EXPORT_OK = qw(great stuff);

# etc