The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<table>


<tr><td>item1</td><td><input name="item1" value=""></td></tr>
<tr><td>item2</td><td><input name="item2" value=""></td></tr>
</table>

<%filter>
my($table) = '/home/httpd/tables/test.dbedit';
my($dir) = '/home/joe';

use strict;
use lib "/home/httpd/lib";
use DBedit;



my ($dbedit) = DBedit->new ({
   "scan_table", $table,
    "scan_page_length",	0, # length of page 0 if no paging
   "scan_marker", "(edit)",
   "append_marker", "Append record"});

$dbedit->table($table);
$dbedit->keycols(["item1"]);
$dbedit->form($_);

$_ = $dbedit->process(\%ARGS);
</%filter>