sub new { my $class = shift; my $self = { name => shift, ipAddress => shift, port => shift, stuff => new MyPackage::MyStuff(), }; my @paramters = ($self); my $thread = new Thread \&processJobs, \@paramters; bless $self, $class; return $self; } sub processJobs { my $self = shift; }