my $p1    = param('col1'); 
my $dbh1 = DBI->connect("DBI:Oracle:$sid", "$dbuser", "$pw",{AutoCommit=>1}); 
($p2, $p3, $p4) = $dbh1->selectrow_array("SELECT col2, col3, col4 FROM table WHERE col1 = '$p1'");       
print "Edit"; 
print "<form method=\"post\" action=\"e2.pl\">"; 
print "P3:<input type=text value=\"$p3\" name=p3>"; 
print "P4:<input type=text value=\"$p4\" name=p4>"; 
print "<input type=submit name=edit value='SAVE CHANGES'>"; 
print "</form>"; 
my $dbh = DBI->connect("DBI:Oracle:$sid", "$dbuser", "$dbpw",{AutoCommit=>1}); 
my $sth = $dbh->prepare("UPDATE table SET col3='$p3', col4='$p4' WHERE col1 = '$p1'"); 
$sth->execute;