use CGI qw/:all/;

| much handwaving
|
foreach my $row ($dbh->fetchrow_hashref){
       print start_form ( -action => "crudscript.pl" );
       print hidden('row_id',$row->{row_id});
       printf "Old Name: %s",$row->{name};
       printf "New Name: %s",texfield('newname','');
       printf submit('action','delete');
       printf submit('action','update');
       print "<br>";
       
}