#!/usr/bin/perl
#
use IO::Socket;
my $sock = IO::Socket::INET->new(qq(127.0.0.1:1234));

my $ci = 4;

my $player = "Devel";
my $user = 1;    #<---- Der Wert ist ist diesem Beispiel festgelegt.

{
  print $sock qq(sel 12345\n);
  print $sock qq(slogin superadmin abcde\n);

  print $sock qq(fp $player\n);  #<---(1)

  print $sock qq(mptc $ci $user\n);

  print $sock qq(msgu $user @ --[ Hallo Welt ]---\n);
  print "Programm Ende\nquit)";
}