## Prelude use'es as before my $original_name = $0; $0 = qq{$original_name($$): TRYING TO GET LOCK}; ## Your open and flock lines . . . $0 = qq{$original_name($$): HOLDING FLOCK}; sleep;