my $outbuf = '';
while (read FileHandle, $buf, 28)
{ $outbuf .= $buf;   # zum Senden anhängen
  my $len = $socket->send($outbuf);   # Sendeversuch - heißt, es muß nicht klappen
  $len and substr $outbuf, 0, $len, ''; # vorn wieder abschneiden
}