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