- or download this
my $h = $sth->fetchrow_hashref; # error checking left out
print <<END;
...
<input type='submit' />
</form>
END
- or download this
print(
start_form,
...
submit,
end_form
);
- or download this
% my $h = $sth->fetchrow_hashref;
<form>
...
Notes: <textarea name='notes'><% $h->{notes} %></textarea>
<input type='submit' />
</form>