Ikegami,
Thanks for the reply. A little bit of tweaking, but you were pretty much on the money =).

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

my $form = ${$perl_form};

my $field = $doc->createElement('<INPUT NAME="FLUFFY" VALUE="socks" TY
+PE="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++;
}
[download]

The $doc just needed an agent slapped in the middle and with field I could only get it to work when I added all the data in one line, but I didn't tinker with it too much.
Update: looked into it a bit more you can do the field definition with the following...

...
my $field = $doc->createElement('<INPUT TYPE="hidden">');
%{$field}->{name} = "FLUFFY";
%{$field}->{value} = "socks";
[download]

Which gives....

Input1 : Fruit : apple : hidden
Input2 : Animal : dog : hidden
Input3 : language : perl : hidden
Input4 : FLUFFY : socks : hidden
[download]

Thanks for your help ++. =)

Regards Paul