Select Code to Download

use vars qw($LF);

sub new
...
        my $ret = flock $LF, LOCK_EX;
        return scalar $ret;
}

flock $this->{'FL'}, LOCK_EX;