sub pi { 2*atan2(1,0) } $circumference = 2*pi*$r;