#!/usr/local/bin/perl
use PeGS::PDF;
my $W = 1.50 * 72;
my $H = 2.25 * 72;
my $pdf = PeGS::PDF->new(
{
file => "/Users/brian/Desktop/array.pdf",
'x' => $W,
'y' => $H,
}
);
die "Could not create object!" unless ref $pdf;
$pdf->make_array( '@cats', [ qw(Buster Mimi Ginger Ella) ], 10, 120 );
$pdf->close;