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  }