Help for this page
package MyThreadSpool; use Carp; ... return $self }
#!/usr/bin/perl -w use strict; ... # and so now print $obj->{port}.... etc etc etc