Thanks a lot, benn,
I will try to use Mingw.

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);