Heres my code now -

#!/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]

this outputs -
SELF: MyStuff::Server=HASH(0x8153c28)
SELF: MyStuff::Server=HASH(0x8358760)

and then lots of barry... but never "new name". So, I'm not passing self by reference. How can I do this? Thanks!