#!/usr/bin/perl
# pdf-filler-test.pl
use strict;
use warnings;
use CAM::PDF;
#
my $infile  = 'input.pdf';
my $outfile = 'output.pdf';
my $pdf     = CAM::PDF->new($infile) or die 'wtf';
my @FIELDS  = $pdf->getFormFieldList();
#
foreach ( @FIELDS ) {
    my $fieldnum = $_;
    $pdf->fillFormFields($_ => $fieldnum);
}
$pdf->cleanoutput($outfile);

##</code><code>##

$pdf->clearAnnotations();
$pdf->cleanoutput($outfile);