use strict;

use warnings;

use CAM::PDF;
 
my $infile  = 'acc.pdf'; #template
my $outfile = 'acc_new.pdf'; # new filled up pdf to serve to the user.

my $pdf     = CAM::PDF->new($infile) or die 'error';
my @FIELDS  = $pdf->getFormFieldList();
 
my %fields = (
'name' => 'Joe test',
'address' => '100 Main Street',
'account_number' => '000007',
'date' => '05/19/2011',
'place' => 'USA',
);

foreach my $field ( @FIELDS ) {

        $pdf->fillFormFields(%fields);
                
        $pdf->fillFormFields($field => $field);  #sets the value of the field to the field name.

}
close(DATA);

$pdf->cleanoutput($outfile);