package junk; use strict; use warnings; use Exporter qw[ import ]; our @ISA = 'Exporter'; our @EXPORT_OK = qw[ test test2 ]; sub test{ print 'test' } sub test2{ print 'test2'; goto &test; } 1;