"New name" never printing has nothing to do with passing by reference ($self is already reference to the object) and everything to do with how threads work. For more information on this topic by a monk with a similar problem, please see Shared variable not changing?.

Just to reinforce the point that the blessed object reference (what is stored in $self) can be used to reset the name when threading doesn't get in the way, consider this example using a closure:

{
  package Foo;
  sub new {
    my $sClass = shift;
    my $self= { name => shift };
    return bless($self, $sClass);
  }
  sub printName {
    my $self = shift;
    print $self->{name} . "\n";
  };
}

my $oFoo = Foo->new(q{George Alan O'Dowd});
my $crPrintCurrentName = sub { $oFoo->printName(); };

&$crPrintCurrentName();
$oFoo->{name} = 'Boy George';
&$crPrintCurrentName();
[download]

prints

George Alan O'Dowd
Boy George
[download]

Best, beth

#!/usr/bin/perl
use strict;
use warnings;
use MyStuff::Server;

my $serverPort = '17077';

my %serverDictionary;
$serverDictionary{"barry"} = new MyStuff::Server("barry","localhost",1
+7070);    

sleep(10);

# and my package -

# Represents a video server
package MyStuff::Server;

use strict;
use warnings;

use Thread;

sub new 
{
  my $class = shift;
  my $self = 
  {
    name => shift,    
  };

  bless $self, $class;

  my @paramters = $self;
  my $thread = new Thread \&processJobs, \@paramters;  
  print "SELF: ", $self,"\n";
  $self->{name} = "new name";

  return $self;
}

sub processJobs
{
  my $paramters = shift;
  my $self = @$paramters[0];
  print "SELF: ", $self,"\n";
  sleep(5);
  print $self->{name}, "\n";


}
[download]