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;