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;