my $retries = 5;
my $fhLock;
while( $retries and not open $fhLock, ">", $lockfile ) {
    warn "Failed to open $lockfile: $! [$^E]";
    sleep 1; 
    --$retries;
}