How to access a Wx::App object property in a Wx::Frame

[Octavian Rasnita]

Hello,

Please tell me how can I access the properties of the Wx::App object in the 
subroutine which initializes that object.
Is it absolutely necessary to use global variables? (Because I couldn't find 
another solution.)

I did:

use MyApp;
my $app = MyApp->new;
$app->{the_property} = "foo";
$app->MainLoop;

package MyApp;
use base 'Wx::App';
use Wx;

sub OnInit {
  my $self = shift;

#Here I want to access the Wx::App object property "the_property"
#for sending it to the frames created with Wx::Frame
}

Thank you.

Octavian