Select Code to Download

#!/usr/bin/perl -w
use strict;
use threads;
...
    # release slot:
    $sem->up;
}

##!/usr/bin/perl -w
use strict;
use threads;
...
    push (@results,$foo);
    $sem->up;
}