Select Code to Download

unless (eval { my @a=$dbh->selectrow_array('SELECT anycolumn FROM some
+table'); 1 }) {
    $dbh->do('CREATE TABLE sometable ...');
}