$rows = $source_dbh->do($ctas_sql);
unless (defined $rows) {
    # handle error condition here
}