#!/usr/bin/perl

use strict;
use warnings;

{
    package TestApp;
    
    use Wx qw(:everything);    
    use base qw(Wx::App);
    
    sub OnInit {
        my( $frame ) = Wx::Frame->new( undef, -1, "TestApp", [20,20], [220,150] );
        
        my $text = Wx::TextCtrl->new( $frame, -1, '', [-1,-1], [150,100], wxTE_MULTILINE );
        my $main_sizer    = Wx::GridBagSizer->new( 0, 1 );
        
        $main_sizer->Add( $text, Wx::GBPosition->new( 0, 0 ),
                Wx::GBSpan->new(1,1), wxLEFT | wxALIGN_CENTER_VERTICAL , 2);
    
        $frame->SetSizer( $main_sizer );
        $frame->SetAutoLayout(1);
    
        $frame->Show(1);
        
        open my $fh, '-|', 'perl testprogramm.pl' or die $!;
        while( my $line = <$fh> ) {
            $text->AppendText( $line );
        }
        close $fh;

        1;
    }
}

TestApp->new->MainLoop;

#!/usr/bin/perl

use strict;
use warnings;

$|++;

for my $i ( 1 .. 15 ) {
    print $i,"\r\n";
    select undef, undef, undef, 0.5;
}