use Fcntl qw(LOCK_EX LOCK_NB);
die "Another instance is already running" unless flock DATA, LOCK_EX|LOCK_NB;