use PDF::Create;
my $pdf = new PDF::Create('filename' => 'out.pdf', 'Version' => 1.3);

##</code><code>##

$ perl pdftest.txtPDF::Create.pm: out.pdf: Permission denied
 at pdftest.txt line 2
Can't use an undefined value as a symbol reference at .../lib/PDF/Create.pm line 76.

##</code><code>##

72  elsif (defined $params{'filename'}) {
73    $self->{'filename'} = $params{'filename'};
74    my $fh = new FileHandle "> $self->{'filename'}";
75    carp "PDF::Create.pm: $self->{'filename'}: $!\n" unless defined $fh;
76    binmode $fh;
77    $self->{'fh'} = $fh;
78  }