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";