my $doc = $ie->agent->Document;

my $form = ${$perl_form};

my $field = $doc->createElement('<INPUT NAME="FLUFFY" VALUE="socks" TYPE="hidden">');

$form->appendChild($field);

my @inputs = $perl_form->inputs();
my $c = 1;
foreach my $i ( @inputs ) {
        print "Input$c : " . $i->name . " : " . $i->value . " : " . $i->type . "\n";
        $c++;
}