#!/usr/local/bin/perl

use PeGS::PDF;

my $W    = 3.5 * 72;
my $H    = 2.55 * 72;

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

my $h_ref = { anonymous => 'user' };
$h_ref->{'joe'}  = 'bloe';
$h_ref->{'john'} = 'public';

$pdf->make_reference( '$h_ref', $h_ref, 10, 140 );

$pdf->close;
