#!/usr/bin/perl -w

    use IO::Socket;

    print "Receiver...\n";

    my $sock = new IO::Socket::INET (
                                     LocalHost => 'localhost',
                                     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>##

C:\Code>perl socket.pl
Receiver...
Testing
This is a test by telnetting to port 7070

C:\Code>