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

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