# Two scripts in parallel:
my $highest_id1 = $dbh->do("select max(id) from my_table"); # first script
my $highest_id2 = $dbh->do("select max(id) from my_table"); # second script

$highest_id1++; # first script
$highest_id2++; # second script

if ($highest_id1 == $highest_id2) {
    die
};