Manual page<\/TITLE><\/HEAD>\n"; print "<BODY><DL>\n$_</DL><\/BODY>\n"; print "<\/HTML>\n";

#!/usr/bin/perl -w # by M. Trojnara 1998 for stunnel only # use strict; my $txt=""; while(<>) { $txt.=$_; } $_=$txt; s//>/g; s/^\.B (.*)/$1<\/B>/gm; s/^\.BI (.*)/$1<\/I><\/B>/gm; s/^\.BR (.*)/$1<\/FONT><\/B>/gm; s/^\.RS/
\n/gm; s/^\.RE/<\/BLOCKQUOTE>\n/gm; s/^\.TH\s+(\S+)\s+(\S+).*/
$1($2)<\/H1>/gm; s/^\.nf/
\n/gm; s/^\.fi/<\/PRE>\n/gm; s/^\.SH *(.*)/

$1<\/B>
/gm; s/^\.TP/
\n/gm; s/^\.br/
\n/gm; s/^\.PP/
\n/gm; s/^\.sp.*//gm; s/^\.na.*//gm; s/^\.ti.*//gm; s/^\.ta.*//gm; s/^(\..*)/_{$1<\/I><\/SUB>/gm;
s/\\f(.)([^\\]*)\\fR/<$1>$2<\/$1>/g;

s/([\w\.]+@[\w\.]+)/$1<\/A>/g;
s/([\w]+:\/\/[\w\.\/~]+)/$1<\/A>/g;

s/\\(.)/$1/g;
while(s/\n\n\n/\n\n/gs)
{};
s/\n+//gs;
s/\n+<\/PRE>/<\/PRE>/gs;
#tr/\n//s;

print "\n";
print "Manual page<\/TITLE><\/HEAD>\n";
print "<BODY><DL>\n$_</DL><\/BODY>\n";
print "<\/HTML>\n";}