Wx::Event::EVT_COMMAND($panel, -1, $ID_OUR_EVENT, \&ourHandler)
sub ourHandler 
{
   my( $frame, $event ) = @_;
   my $text =  $event->GetData;
   my $textvalue =  Wx::GetTextFromUser($text, "some header", wxOK | wxCANCEL,$self ) ;
   #---> what to do here with the dialog text.
}