open my $fh, '<', $file or die $!;
flock($fh);
### tue etwas mit der datei