use Pod::Text;

pod2text("perlfunc.pod", *filehandle);  # send formatted output to file
$text = pod2text("perlfunc.pod");       # assign formatted output to $text
*****
$Pod::Text::termcap=1
*****
pod2text < input.pod
