Working wxperl messagebox example

I am looking for a working example of wxperl message box. I have this code but it does not work. #!perl use Wx; package wxEmgMessage; use base 'Wx::App'; sub OnInit { my ($answer) = Wx::MessageBox("Get timely announcements in the event of a campus emergency or a weather-related closure of the college via text message, email, or voicemail. Would you like to sign up now? ","SIGN UP FOR EMERGENCY MESSAGE NOTIFICATIONS", Wx::wxYES_NO(), ); $answer->ShowModal; $answer->Destory; if ($answer == Wx::wxYES() ) { #open browser } } my $app = wxEmgMessage->new; $app->MainLoop;