Select Code to Download

$cgi->param("current","something else");

use CGI;
use strict;
...
           $cgi->end_form);

print @buffer;

<form method="post" action="example.cgi" enctype="multipart/form-data"
+>
<input type="submit" name="edit_notes" value="edit" /><input type="hid
+den" name="user" value="" me /><input type="hidden" name="current" va
+lue="something"  /></form>