perl и mysql

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Digest::SHA qw(sha256_hex);

open (DATA, «/path/list_mig.txt») or die $!;

my $dbh = DBI->connect(«DBI:mysql:database=server;
host=localhost»,
«user», «password»,
{'RaiseError' => 1});

my $sth = $dbh->prepare(«INSERT INTO virtual_users (domain_id,
email, password, commentary)
VALUES ( (SELECT id FROM virtual_domains WHERE
name='example.org'),?,?,?)»);

while(<DATA>) {
chomp;
my ($email,$commentary,$password) = split /,/;

$password = crypt($password,'$5$');

$sth->execute($email, $password, $commentary);
}

$dbh->disconnect();

Как пропустить пропустить записи которые уже существуют уже, чтобы избежать прерывание работы скрипта