#!/usr/bin/perl -w
use strict;
use warnings;
use Fcntl qw (:DEFAULT :flock);

my $datei = '/meinpfad/test.dat';

my $err;
sysopen(my $fh,$datei,O_RDONLY) or $err = $!;
if (!defined $err) {
	my $flock = flock($fh,LOCK_EX|LOCK_NB);
	if ($flock) {
print "Geht los\n";
		my $ul = unlink($datei);
print "unlink: $ul - >$!<\n";
	}
	else {
print "Anderweitig gesperrt\n";
	}
}