use constant TWOPI  => ( 2.0 * PI ) ;
to
    use constant TWOPI  => ( PI / 0.5  ) ;