use strict;
use warnings;

use CAM::PDF;
 
my $pdf = CAM::PDF->new('file.pdf');

my @formfields = $pdf->getFormFieldList();

foreach (@formfields)
	{
	print $_."\n";
	}

exit;