Select Code to Download

sub relay{
    my $self = shift;
    if(!ref($self)){
...

    }
}

open my $fh,'<',$request_file_name;
        my $params;
        eval{$params = fd_retrieve($fh)};
...
            close $fh;
            redo;
        }

 my $recsock;
        while(!defined $recsock){
        eval{$recsock =
...
while(<$recsock>){
        print "received $_";
    }

my $c = 0;
    print"creating socket\n";
    my $sock;
...
        print $sock $data or croak "$!";
        $c++;
     }

$messenger_params{input}->{fh} = IO::Socket::INET->new(
                    Listen=>$params->{input}->{Listen},
                    LocalAddr=>$params->{input}->{loca_addr},
...
                            Listen=>$params->{output}->{$key}->{listen
+},
                        )or croak "$!";