Select Code to Download

sysread($handle, my $message, -s $handle);

my %buf;

...
   die("Unable to read from pipe: Premature end of file\n")
      if $buf{$_}{offset};
}