$text = $frame->Scrolled (
	'ROText', 
	-scrollbars => 'oe', 
	-font => 'courier 10 normal',
	-background => 'ivory', 
	-foreground => 'blue3', 
	-width =>  120, 
	-height => 40, 
    )->pack(
	-side => 'top', 
	-fill => 'both', 
	-expand => 1, 
    );
    $cmnd = "pod2text --color --loose $0 | "; 
    if ( ! open (POD, $cmnd)) {
	die "\nError in $cmnd ($!)";
    }
    while (my $msg=<POD>) {
	$text->insert ('end', $msg, 'txt');
    }
    close POD;