my $bytes = sysread($handle,$buf,1024);
      die "sysread: $!" if !defined($bytes);
      if ($bytes == 0) {