undef $locale;
 $locale = Wx::Locale->new('Czech', 'cz','cz');
 $locale->AddCatalogLookupPathPrefix(filename('data/locale'));
 $locale->AddCatalog('evidence');