Select Code to Download

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

sub processJobs
{
  my $self = shift;
}

  my $thread = new Thread \&processJobs, $self;
and in process jobs use like this
...
{
  my $self = $_[0];
}