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

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