....
    my $here_doc = '....END';
    stuff
    here
....END

##</code><code>##

my $sql = <<SQL;
SELECT *
FROM TABLE
SQL

sub do_stuff {
  ...
  $dbh->execute($sql);
}