my $MySocket=new IO::Socket::INET->new
             (
              LocalPort => $s->{LocalPort},
              Proto => $s->{Proto}
              );