#!/usr/bin/perl -w use DBI; use CGI qw/:standard/; my $CGI = CGI->new; my $host = "localhost"; my $dbname = ""; my $usr = ""; my $pwd = ''; my $dbh_usr = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, { RaiseError => 1, }) or die $DBI::errstr; # $binf extracted from data where is |BINF : # $price extracted from data where is |PRICE: # $info this is the whole ---START---- and ---END--- my $upload = $CGI->param("data"); if ($upload) { my $update_info = $dbh_usr->prepare("INSERT INTO ITEMS(user, pid, basnm, binf, info, status, price) VALUES(?,?,?,?,?,?,?)"); $update_info->execute('join123', '898', 'iono', $binf, $info, 'Active', $price); $update_info->finish; } $dbh_usr->commit; $dbh_usr->disconnect; print "Content-type: text/html\n\n"; print <

The textarea

HTML