use Wx:from<Perl5>;

my $app = Wx::SimpleApp.new;
my $frame = Wx::Frame.new( Nil, -1, 'Hello, world!' );

$frame.Show;
$app.MainLoop;