perl -e " use Win32API::File; use Wx ;  Wx::Font->new(undef) "
perl -e " use Win32API::File; use Wx ;  Win32API::File::SetErrorMode( 2); Wx::Font->new(undef) "