simple perl pi calc