package Biz ;
use base qw(CGI) ;

use vars qw(@ISA @EXPORT) ;
require Exporter ;
push @ISA, qw(Exporter) ;
@EXPORT = qw/testbiz/ ;

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

1 ;