WxPerl how to work with it?

Question

Perl

Guys, please help me with an example, I choose a GUI for my simple scripts in Perl
c I figured out the trailer without problems, everything is more or less logical, but there is no multithreading and interface
:( It
is required to open a file to display it in a listbox line by line with the work of the progressBar
Help with an example I will be very grateful further I myself ..

use Wx;
package MyApp;

use vars qw(@ISA);

@ISA=qw(Wx::App);

sub OnInit {
  my( $this ) = @_;

  
  my( $frame ) = MyFrame->new();

  
  $this->SetTopWindow( $frame );
  
  $frame->Show( 1 );

  1;
}

package MyFrame;
use vars qw(@ISA);
@ISA=qw(Wx::Frame);

sub new {
  my( $class ) = shift;
    my $this = $class->SUPER::new( undef, -1, 'File open', [-1,-1], [266, 257]);
    my $panel = Wx::Panel->new($this, -1);

    $this->{button1} = Wx::Button->new($panel, -1, 'File Open',[168,16], [73, 46]);

    $this->{progressbar1} = Wx::Gauge->new($panel, -1, 100, [21,192], [201, 17]);
    $this->{progressbar1}->SetValue('0');

    my $listbox2_list = [''];
    $this->{listbox2} = Wx::ListBox->new($panel, -1, [24,16], [137, 166], $listbox2_list);
    $this->{listbox2}->SetBackgroundColour(Wx::Colour->new(255, 255, 255));


  $this;
}

package main;	
my( $app ) = MyApp->new();

$app->MainLoop();