use strict;
use Config;
use IO::Socket::INET;
use IO::Select;

my $SocketHandle;
my $buf;
my $binFile  = "<e:/test.bin";
my $Status;
my $SelHandle;
my @Readable;

unless (@ARGV == 2) { die "Usage: GetStatus.pl remotehostname port" }

$SocketHandle = IO::Socket::INET->new(PeerAddr =>  $ARGV[0],
                                      PeerPort =>  $ARGV[1],
                                      Proto    =>  "tcp",
                                      Timeout  =>  10,
                                      Type     =>  SOCK_STREAM) or die "cannot connect: $!\n";
$SocketHandle->autoflush(1);
$SocketHandle->blocking(0);

open(FileHandle, $binFile)or die "cannot open file: $!\n";
binmode(FileHandle);

while (read(FileHandle, $buf, 28))
{
    $SocketHandle->send($buf);
}

$|=1;

$SelHandle = IO::Select->new($SocketHandle);

while (@Readable = $SelHandle->can_read)
{
        $SocketHandle->recv($Status,1);
        print($Status);
}

close FileHandle;
close $SocketHandle;

while (@Readable = $SelHandle->can_read)
{
        $SocketHandle->recv($Status,1);
        print($Status);
}

my $maxPacket = 1500;
while ($SocketHandle->recv($Status,$maxPacket))
{
    if (length($Status) ne $maxPacket)
    {
        print $Status;
        last;
    }
    elsif (length($Status) eq $maxPacket)
    {    
        print $Status;
        next;
    }
}

my $maxPacket = 1500;
...
while (1) {
  my @Readable = $SelHandle->can_read(10) or last;   # Timeout 10 Sekunden
  foreach my $socket (@Readable) {
    # spätestens sinnvoll, wenn andere Handles mit select überwacht werden
    if ($socket eq $SocketHandle) {
      $SocketHandle->recv($Status, $maxPacket)
      # nur Länge 0 ist etwas besonderes, alles andere ist uninteressant
      length $Status or print ("EOF erkannt\n"), last;
      print $Status;
    }
  }
}
# wenn Gegenseite kein EOF sendet kommt nach 10 Sekunden der Timeout und Du bist hier.
...