#!/usr/bin/perl

use strict;
use Socket;
socket(TO_SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
my $remote_host = '127.0.0.1';
my $internet_addr = inet_aton($remote_host)
    or die "Konnte $remote_host nicht in eine Internet-Adresse umwandeln\n";
my $paddr = sockaddr_in(3002, $internet_addr);
connect(TO_SERVER, $paddr)
    or die "Konnte keine Verbindung zu $remote_host herstellen.\n";
print TO_SERVER "hallo\n";
close(TO_SERVER);