my $socket = IO::Socket::INET->new(%socket) 
         or die $!;