open($fh,'our/stream.pdf') or die "$@";
@pdf = <$fh>;
$pdf = PDF::API->openScalar(join('',@pdf));
...
$pdf->saveas('our/new.pdf');