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

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