Select Code to Download

use strict;
use threads;
...
 print qq(In sub s param=$a\n);
 return shift()
}

use strict;
use threads;
...
       }
   }
}