Select Code to Download

$SEM = CREATE SEMAPHORE;
IF ($PID == FORK())
...
    close file;
    signal($SEM); 
}

use IPC::SysV qw(IPC_PRIVATE S_IRWXU IPC_CREAT);
use IPC::Semaphore;
...
}

$sem->remove;