Select Code to Download

sub lock {
    flock(MBOX,LOCK_EX);
...
lock();
print MBOX $msg,"\n\n";
unlock();

sub fileopen {
    my($filename) = @_;
...
    my($nick) = @_;
    flock({$nick},LOCK_UN);
}