Select Code to Download

#!C:\perl\bin\perl

...
 print hidden({-name=>"User_Input", -value=>"$nbr_of_fields"});
 print submit({-name=>'action', -value => 'Submit' }),
        end_form, end_html;

Test.cgi
--------
...
}

print end_html;