Linux側のエコーサーバ

今時のLinuxだと，エコーサーバなんか動いていないだろうから，Perlで次のようなプログラムを書いてみた．LinuxマシンのIPアドレスは12.34.56.78とする．

#!/usr/bin/env perl
use IO::Socket;

$s = new IO::Socket::INET(Listen => 5, LocalAddr => '12.34.56.78',
                          LocalPort => 9000, Proto => 'tcp', Reuse => 1);
die "IO::Socket : $!" unless $s;

while (1) {
    $sock = $s->accept();
print "accept!\n";
    while (<$sock>) {
        print $sock $_;
    }
    close($sock)
}

close($s);
exit;