or download this
my ($nickname, $pass1, $firstname, $lastname, $email, $imtype, $imid,
+$info, $country, $homepage) = (.
$nickname = $dbh->quote(param('username')),.
...
my $sth = $dbh->prepare( "INSERT INTO member (nickname, password, firs
+t_name, last_name, email, country, homepage, im_type, im_id, info) VA
+LUES ($nickname, $pass1, $firstname, $lastname, $email, $country, $ho
+mepage, $imtype, $imid, $info)");
$sth->execute or die "execute failed: $DBI::errstr\n";
$sth->finish or die "execute failed: $DBI::errstr\n";<