Could not create socket: Bad file number

Select or download this

#!/usr/bin/perl -w

...
    }
    close($sock);

Select or download this

Receiver...
Could not create socket: Bad file number

Select or download this

smeau407:db1010:/export/home/oracle>
-> grep 7070 /etc/services
...
-> telnet localhost 7070
Trying 127.0.0.1...
telnet: Unable to connect to remote host: Connection refused

Select or download this

#!/usr/bin/perl -w

Select or download this

truss ./mtb_receive.pl
execve("/usr/perl5/5.6.1/bin/perl", 0xFFBFFA94, 0xFFBFFAA4)  argc = 3
...
llseek(3, 0, SEEK_CUR)                          = 1358
close(3)                                        = 0
_exit(0)

Select or download this

Select Code to Download