my $player = Gast;

print $sock qq(sel 1234\n);
print $sock qq(slogin admin 12345\n);
print scalar <$sock>;

#print "Player: ";
#   chomp ($player = <STDIN>);
#   exit if $player eq "q";      

print $sock qq(fp $player\n);
#print scalar <$p_id>;
#my $p_id =  <$sock>;
#chomp($p_id);

print $sock qq(msgu $player @ Hallo User\n);