use Wx;sub
qq{open$Wx=>$0;scalar<$Wx>=~m$;$;Wx::MessageBox($1=>$`)
&&exit}@p::ISA=Wx::App,*p::OnInit=*qq;p->new->MainLoop;