$x = $p->Crop(geometry=>'439x4+166+167');
warn "$x" if "$x";
$x = $p->Trim();
warn "$x" if "$x";

print join ",",$p->Get(qw/columns rows page/);