Das Problem war Zeile 26. Es klappt mit:

$socket->recv(my $byte,1);
oder
$socket->sysread(my $byte,1);

$socket->read(my $byte,1); klappt nicht, da gibt es die gleichen Probleme wie oben.

Und natürlich war es kein Portscanner, den ich benutzt habe, sondern ein Portsniffer :-)

Bernd