require "sys/ioctl.ph";
  
  $size = pack("L", 0);
  ioctl(FH, FIONREAD(), $size)
      || die "Couldn't call ioctl: $!\n";
  $size = unpack("L", $size);