my $readbuf;

  while (
    read (INF, $readbuf, 32767)	# read in (up to) 32k chunks
)
{$pdf .= $readbuf}