use Math::Cephes qw(:all);
# double p[3], q[3], vecang();$y = vecang( $p, $q );
# For two vectors p, q, the angle A between them is given by
my @p = ("0","0");
my @q = ("4","3");
my $ang = vecang(@p,@q);
print "ang=$ang\n";