my ($startx,$starty, $endx,$endy) = $pdf->PageSize (1) ;

print "$startx\t$starty\t$endx\t$endy\n";

##</code><code>##

0       0       612     792

##</code><code>##

8.50 x 11.00 in