#!/usr/local/bin/perl
use XYZ;

my $x = new XYZ();
$x->gen_pb();
1;

##</code><code>##

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;
}


##</code><code>##

#!/usr/local/bin/perl
use CGI::Application;
use XYZ;

....
my $x = new XYZ();
$x->gen_pb();