package Z; use strict; use Exporter; use L; our (@EXPORT) = qw(zProc subzProc); our (@ISA) = qw(Exporter); sub zProc { print "I am zProc\n"; } sub subzProc { print "I am subzProc\n"; L::lProc(); L::sublProc(); } 1;