Adding pod as requested in Bug #87689

lib/HTML/Form.pm

@@ -325,6 +325,22 @@ sub new {
     $self;
 }
 
+=item $form->push_input( $type, \%attr, $verbose )
+
+This method adds additional inputs to the form.
+The first argument is the type of input (e.g. hidden, option, etc.).
+The second argument is a reference to a hash of the input attributes.
+The third argument is optional, and will issue warnings about unknown input types.
+
+Example:
+
+    push_input( 'hidden', {
+        name  => 'NewFormElement',
+        id    => 'NewFormElementId',
+        value => 'some value',
+    });
+
+=cut
 
 sub push_input
 {

t/form.t

@@ -128,10 +128,10 @@ EOT
 my $filename = sprintf "foo-%08d.txt", $$;
 die if -e $filename;
 
-open(FILE, ">$filename") || die;
-binmode(FILE);
-print FILE "This is some text\n";
-close(FILE) || die;
+open my $file, ">", $filename || die;
+binmode($file);
+print $file "This is some text\n";
+close($file) || die;
 
 $f->value(f => $filename);