...
my $info = $query->param('info');
$info =~ s/\n/<p>/g;
my $sql = sprintf "insert into test values(%s)", $dbh->quote($info);
$dbh->do($sql) || die;
...