Select Code to Download

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