my @paramters = $self;
  my $thread = new Thread \&processJobs, @paramters;  

  $self->{name} = "new name";

  return $self;
}

sub processJobs
{
  my $self = shift;
  
  while(1)
  {
    print "Processing Jobs for Server Name: ", $self->{name},"\n";
  }
}