package Baz ;
use base qw(CGI) ;

use vars qw(@ISA @EXPORT) ;
require Exporter ;
unshift @ISA, qw(Exporter) ;
@EXPORT = qw/testbaz/ ;

sub testbaz {
    print "It works\n" ;
}

1 ;