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