use strict;
use DBI;

my $dbh = DBI::connect( ... ) or die "DBI::connect failed";

my $sql = <<ENDSQL;
SELECT ...
  FROM ...
WHERE ...
 ...
ENDSQL

my $sth = $dbh->prepare( $sql ) or die "DBI::prepare() failed";
$sth->execute( );

...