Select Code to Download

my $sock = IO::Socket::INET->new(Proto => 'tcp', Blocking => 0)
  or die "Socket error: $!\n";
...
  die "Connect error: $!\n";
}
# then select(), etc.

use strict;

...
  print "\$!=$err  sock_err = $sock_err\n";
}