do {
    my $pdf=CAM::PDF->new(...);
    $pdf->foo();
    $pdf->bar();
}; # object destroyed by perl