package HTML; use strict; BEGIN { use Exporter (); @HTML::ISA = qw(Exporter); @HTML::EXPORT = qw(); @HTML::EXPORT_OK = qw($q); } use vars qw($q); sub printmyheader{ print <<"header"; LEPP
more options
header } sub printmytrailer{ print <<"trailer";
trailer } 1;