package Gl::Df; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw( tst1 ); our $VERSION = 1.00; use Gl::Uf; sub tst1 { tst2(); print 1 ;} 1;