<%init> use DBI; # Process submitted data. my $a=$ARGS{name}; my $b=$ARGS{purpose}; our $dbh=$m->comp('mysql-connect-st.mas'); if(($a ne "") and ($b ne "")) { # Insert a new database record. my $sql="insert into st_defs (name, purpose) values ('$a','$b')"; my $sth=$dbh->prepare($sql); my $result=$sth->execute(); } $m->redirect('view-simulation-test-definitions.html');