Select Code to Download

$dbh->do("DROP TABLE IF EXISTS newtable");
$dbh->do("
...
     FROM T
     JOIN P ON T.wife = P.wife AND T.company = P.company
");