package testpack ;
use strict ;
use Exporter ;
our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, $xyz) ;

$VERSION = 0.99 ;

@ISA = qw(Exporter) ;
@EXPORT = qw($xyz) ;
@EXPORT_OK = qw(&rtine) ;

$xyz = 888 ;

sub rtine {
    $xyz = 999 ;
    print "I\'m in the su-ub ! and xyz = $xyz \n" ;
}

1;

##</code><code>##

use strict ;
BEGIN{$Exporter::Verbose=1}
use testpack ('&rtine') ;

print "I\'m before the sub and xyz = $xyz \n" ;
&rtine ;
print "I\'m after the sub and xyz = $xyz \n" ;

##</code><code>##

Exporter::import('testpack', '&rtine') called at E:\Sites\packnew\cgi-bin\test.pl