Select Code to Download

use Fcntl qw(:flock);

...
sleep(10);

close(FILE);

sysopen(FILE, $path, O_RDWR|O_CREAT|O_EXCL) or die $!;