I had a similar problem, I just inherited from it and added a method raw_data to give me the completed PDF.

Also be aware that PDF::Create doesn't escape text which can cause errors when trying to view PDFs created by it.

package PDF::Create::Raw;
use PDF::Create;
use 5.006;
use strict;
use warnings;

# Wrapper around PDF::Create that lets us access the raw data.

our @ISA = qw(PDF::Create);

our $VERSION = '0.02';


# Adds raw_data to grab the PDF data for outputting
sub raw_data {
    my $self = shift;
    return  $self->{'data'};

}

1;
__END__
=head1 NAME
PDF::Create::Raw - Perl extension for creating PDF files.
=head1 DESCRIPTION

Same as PDF::Create with one overrided method rawdata.
=head1 AUTHOR
Pumphret, Lee<lt>E<gt>
=head1 SEE ALSO
L<perl>.
=cut
[download]

-Lee

"To be civilized is to deny one's nature."