...
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;
...
##</code><code>##

Hello,

This is a test.

Bye Bye.

##</code><code>##

test=> select * from test;
                     stuff                     
-----------------------------------------------
<p>Bye Bye.a test.
(1 row)