Select Code to Download

my $extsock = socket connected to some server...
my @ready;
...
    }
  }
}

$main::extsock = new IO::Handle;
$main::extsock = IO::Socket::INET->new(.......);
$self->select->add($main::extsock);