open( T, "|/path/to/lib -l /path/to/.txt2html.dict" );

##</code><code>##

open( T, "|/path/to/txt2html.pl -l /path/to/.txt2html.dict" );

##</code><code>##

use strict;
use CGI qw(:standard);

print header;

my $text;
if ($text = param('text')) {
   open(T, "|/usr/bin/txt2html -l /home/jeffa/public_html/txt2html.dict");
   print T $text;
}
else {
   print start_html,
      start_form,
      textfield('text'),
      submit,
      end_form,
      end_html,
   ;
}