package Private::ProjectName::SQL; require Exporter; use warnings; use strict; use vars qw($VERSION @ISA @EXPORT); $VERSION = 0.01; @ISA = qw(Exporter); @EXPORT = qw(sql_queryname1 sql_queryname2 ...); use constant sql_queryname1 = qq( SELECT RecordID FROM Management WHERE IQ > 40 AND Salary < (SELECT UngodlyAmount FROM References) ); #don't trim this line! use constant sql_queryname2 =.... 1;