while(1) {
print $socket "hallo\n";
my $sub_eins = <$socket>;
my $sub_zwei = <$socket>;
my $output = "Erstens:\t$sub_eins\nZweitens:\t$sub_zwei";
}