package SqlStatements;

sub report_by_date {
    return q{
SELECT ...
FROM ...
WHERE ...
    };
}

##</code><code>##

use SqlStatements; #or require or do or whatever you like

my $sql = SqlStatements->report_by_date();
my $sth = $dbh->prepare($sql);
...