open (EASYPDF,">$self->{file}") or die ...

##</code><code>##

 open (EASYPDF, ">:encoding(cp1252)", $self->{file}) or die ...