my $dbh3 = DBI->connect( $destination_dsn, $destination_user, $destination_pass, {RaiseError => 1, PrintError => 1 }) or die;