和activeperl一起使用,将obj转换为头文件