$messenger_params{input}->{fh} = IO::Socket::INET->new(
                    Listen=>$params->{input}->{Listen},
                    LocalAddr=>$params->{input}->{loca_addr},
                    Type=>SOCK_STREAM,
                    Proto=>'tcp',
                    Reuse=>1,
                    LocalPort=>$params->{input}->{local_port},
                )or croak "$!";

#and for the second one : 
 $messenger_params{output}->{$key}->{fh}
                        = IO::Socket::INET->new(
                            LocalAddr=>$params->{output}->{$key}->{local_addr},
                            LocalPort=>$params->{output}->{$key}->{local_port},
                            Type=>SOCK_STREAM,
                            Proto=>'tcp',
                            Reuse=>1,
                            Listen=>$params->{output}->{$key}->{listen},
                        )or croak "$!";