use strict;
my $process="TEST-LOCK";
open (LCK, ">"$process" . "_process_done.lck") or die "Could not create $process" . "_process_done.lck $!";
print LCK "\n";
close (LCK);