1st submit for perl5/triangle