This minor modification of your code worked. I set the server to 'localhost' and used a number rather than a string for the port number.

#!/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);
[download]

The results were:

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

C:\Code>
[download]