Select Code to Download

# Create a user agent object
use LWP::UserAgent;
...
} else {
  print "Bad luck this time\n";
}

die "read timeout" if $timeout && !$sel->can_read($timeout);
$n = $socket->sysread($buf, $size, length($buf));