Select Code to Download

#!/usr/bin/perl -w
#Traditional IO::Select Example 
...
        ....
    }
}

#!/usr/bin/perl -w
#New stable Thread module in 5.8
...
   $clientSocket=shift;
   ...
}