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" ;