#! /usr/bin/perl

use IO::Socket::INET;
my $sock = new IO::Socket::INET (
                                   PeerAddr => '127.0.0.1',
                                   PeerPort => '30000',
                                   Proto => 'tcp',
                                  );
  die "Could not create socket: $!\n" unless $sock;

print $sock "Hello there!\n";
my $new_sock = $sock->accept();

while(defined(<$sockin>)) {
    print "Arrived?\n";
    print $_;
  }
print "Stopped! \n";
close($sock);