package main;
my $app = AppMain->new();
$app->MainLoop();
1;

package AppMain;
sub OnInit{
  my $frame = App->new()
  1;
}
1;

package App;
sub new{
  ## here is not right...
}
1;