Select Code to Download

#!/usr/bin/perl -w
# sharetest - test shared variables across forks
...
#        $handle2->shunlock();
    }
}

...