#!/usr/bin/perl -w
        use strict;
        use CAM::PDF;
       my $pdf = CAM::PDF->new('tenant.pdf') or die "Could not open PDF ($!)!";
my @fields = $pdf->getFormFieldList();
foreach my $field ( @fields ) {
    if ($field =~ /Female/) {
        my $ff_obj    = $pdf->getFormField($field);

        $ff_obj->{value}->{value}->{AS}->{value} = "On";
    }
    else {
        $pdf->fillFormFields($field => $field);
    }
}
$pdf->cleanoutput('afilled.pdf');