use IO::Socket;
$sock = new IO::Socket::INET (LocalHost => 'UNIXhost',
    LocalPort => 3001,
    Proto => 'tcp',
    Listen => 5,
    Reuse => 1 );
die "Socket could not be created. Reason: $!\n" unless $sock;

while ($new_sock = $sock->accept()) {
    while (defined ($buf = <$new_sock>)) {
        chomp ($buf);
        print "$buf\n";
    }
    print "EOM\n\n";
}

close ($sock);