#!/usr/bin/perl -w

    use IO::Socket;

    print "Receiver...\n";

    my $sock = new IO::Socket::INET (
                                     LocalHost => 'myhost',
                                     LocalPort => '7070',
                                     Proto => 'tcp',
                                     Listen => 1,
                                     Reuse => 1,
                                    );

    die "Could not create socket: $!\n" unless $sock;

    my $new_sock = $sock->accept();
    while(<$new_sock>) {
       print $_;
    }
    close($sock);


##</code><code>##

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

##</code><code>##

smeau407:db1010:/export/home/oracle>
-> grep 7070 /etc/services

smeau407:db1010:/export/home/oracle>
-> netstat -an | grep 7070

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

##</code><code>##

#!/usr/bin/perl -w

##</code><code>##

truss ./mtb_receive.pl
execve("/usr/perl5/5.6.1/bin/perl", 0xFFBFFA94, 0xFFBFFAA4)  argc = 3
resolvepath("/usr/lib/ld.so.1", "/usr/lib/ld.so.1", 1023) = 16
resolvepath("/usr/perl5/5.6.1/bin/perl", "/usr/perl5/5.6.1/bin/perl", 1023) = 25
stat("/usr/perl5/5.6.1/bin/perl", 0xFFBFF868)   = 0
open("/var/ld/ld.config", O_RDONLY)             Err#2 ENOENT
stat("/usr/perl5/5.6.1/lib/sun4-solaris-64int/CORE/libperl.so.1", 0xFFBFF370) = 0
resolvepath("/usr/perl5/5.6.1/lib/sun4-solaris-64int/CORE/libperl.so.1", "/usr/perl5/5.6.1/lib/sun4-solaris-64int/CORE/libperl.so.1", 1023) = 57
:
:
fstat64(3, 0xFFBFED40)                          = 0
ioctl(3, TCGETA, 0xFFBFEE24)                    Err#25 ENOTTY
read(3, " # ! / u s r / b i n / p".., 8192)     = 1358
read(3, 0x0002E64C, 8192)                       = 0
llseek(3, 0, SEEK_CUR)                          = 1358
close(3)                                        = 0
_exit(0)

##</code><code>##