# The main program
$wxobj = MyApp->new(); # New HelloWorld application

# when $destroy is called from within $self,
# the MainLoop stops
$wxobj->MainLoop;