use Fcntl qw(:flock);
open FLOCKFILE, '>', $ENV{APPDATA}.'/lst.lock';
flock(FLOCKFILE, LOCK_EX|LOCK_NB) or do {print "ENDE: Eine Instanz laeuft derzeit schon.\n\n";exit;};