package MyApp;

our $VERSION = '1.2.3.4';

use Wx qw(:everything);
use Wx::XRC;

use base 'Wx::App';

sub OnInit
{
  my $self = shift;

  my $xr = Wx::XmlResource->new();
  $xr->InitAllHandlers();
  $xr->Load('test.xrc');

  my $frame = Wx::Frame->new;
  $xr->LoadFrame($frame, undef, 'MyFrame1');
  $frame->Show(1);
}

package main;
MyApp->new->MainLoop;