perl intermedia half,start to CPlus