Select Code to Download

use Math::Cephes qw/acos/;
for ( -2, -1.1, -1, 0, 1, 1.1, 2 ) {
  print acos($_),$/;
}