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