Select Code to Download

foreach my $sql ( $SQL1, $SQL2 ) {
  my $sth = $dbh->prepare($sql) or die $dbh->errstr;
     $sth->execute;
}