open my $dbh, ">>", $database_file_w_path
    or die "Trouble opening $database_file_w_path, stopped: $!";
flock $dbh, LOCK_EX
    or die "Can't get LOCK_EX flock for $database_file_w_path, stopped: $!";
print {$dbh} "$database_row\n";
close $dbh
    or die "Trouble closing $database_file_w_path, stopped: $!";