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

##</code><code>##

use CGI;
use strict;
use warnings;
my $cgi = CGI->new;
my @buffer;
my $timestamp = time;
my $user = "Me";

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

push(@buffer, $cgi->start_form(-method => 'post' , -action => 'example.cgi'),
           $cgi->submit(-name => 'edit_notes', -value=>$timestamp, -label =>"edit"),
           $cgi->hidden(-name => 'user', $user),
           $cgi->hidden(-name => 'current', -value=>'example'),
           $cgi->end_form);

print @buffer;

##</code><code>##

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