use strict;

use Tkx;
use IPC::Open3;

my $mw = Tkx::widget->new('.');
my $tw = $mw->new_text();

my $bt = $mw->new_ttk__button(
    -text => 'retrieve',
    -command => sub {
        my( $pid, $wtr, $rdr, $err );
        $pid = open3( $wtr, $rdr, $err, 'dir' );
        $tw->insert( 'end', scalar do { local $/; <$rdr> } );
    },
);

Tkx::pack( $tw );
Tkx::pack( $bt );

Tkx::MainLoop;