use HTML::FromText;

my $str = <<TEXT;
Foo is on this line,
and bar is in this paragraph.

Baz is in a new paragraph.
TEXT

print text2html($str, paras => 1);

##</code><code>##

<P>Foo is on this line,
and bar is in this paragraph.</P>
<P>Baz is in a new paragraph.</P>

##</code><code>##

$str =~ s/\n\n/<p>\n\n/g;
$str =~ s/\n/<br>\n/g;