my $sth = $dbh->prepare(<<EOQ);
select
    tbl.column1,
    tbl2.column2
from
    tbl1,
    tbl2
where
    condition = ?
EOQ
print $sth->{statement};