package MYPACKAGE;
use DBI;
use CGI;
[several sub routines follow]
1;

##</code><code>##

#!/usr/bin/perl5
use MYPACKAGE.PM;
print header;###from CGI.PM
start_html(blah, blah, blah);###from CGI.PM
MYPACKAGE::connect();###connecting to mySQL from a subroutine in MYPACKAGE.PM