my $pdf = read_pdf("foo.pdf");

##</code><code>##

  my $pdf;
  eval {
     $pdf = read_pdf("foo.pdf");
  };
  if ($@) {
     #read_pdf called die, handle error gracefully..
  }
  ...