Hi,

For documentation purposes, in a perl/Tk program, I want to use pod2text and send the output to a new window. Everything is almost fine, except thay I get:

?[1mNAME?[0m instead of NAME

The code I'm using is something like:

    $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;
[download]

what I'm doing wrong or what I'm missing?

thanks,

memo