package test; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(); sub test { my @caller = caller(); print "@caller\n"; print "DBGZ" if 0; } 1;