#!/usr/local/perl/bin/perl -w

use PodFr::Text;

$PodFr::Text::termcap=1;

if(@ARGV) {
	pod2textfr($ARGV[0]);
} else {
	pod2textfr("<&STDIN");
}