#!/usr/local/bin/perl

use PeGS::PDF;

my $W    = 2.5 * 72;
my $H    = 2.25  * 72;

my $pdf = PeGS::PDF->new(
	{
	file => "/Users/brian/Desktop/hash.pdf",
	x    => $W,
	'y'  => $H,
	}
	);
die "Could not create object!" unless ref $pdf;

my %microchips = qw(
	Buster  1435
	Mimi    9874
	Ella    3004
	Ginger  5207
	);
	
$pdf->make_hash( '%microchips', \%microchips, 10, 120 );

$pdf->close;
