Select Code to Download

use warnings;
use strict;
...
  my ($socket) = @_;
  # play happily ever after with $socket in your new thread
}

threads->create(sub { do_stuff($socket) });