my $lockfile = $destDir."loadqueue.lck";
open my $fhLock, ">", $lockfile  or die "Failed to open $lockfile: $!";

##</code><code>##

my $lockfile = $destDir."loadqueue.lck";
my $fhLock;
do { eval { open $fhLock, ">", $lockfile  or die "Failed to open $lockfile: $!" } }
until (defined $fhLock);