package XYZ;
sub gen_pb {
$template->process("$dir/$input",$vars, \$content, {binmode => ':encoding(utf8)'} )						|| return "Template Error: " . $template->error();
								
							unlink($doc_file) if(-e $doc_file);
						open(FHPB,">$doc_file");
						
binmode( FHPB, ":encoding(UTF-8)" );
						
print FHPB $content;
						
close FHPB;
}