#!/usr/bin/perl
use strict;
use warnings;
use CAM::PDF;

my $pdf = CAM::PDF->new('fw9.pdf') or die 'wtf';
# Use $pdf->getFormFieldList() to get list of field names
# Unfortunately, fw9.pdf doesn't have descriptive names

$pdf->fillFormFields('f1-1' => 'Randal Schwartz');
$pdf->cleanoutput('RSchwartz_w9.pdf');