#!/usr/bin/perl
  
# Assigning values to X and y
Y = 45;X = 70;
  
# Calling atan2() function
return_val = atan2(Y, X);
  
# printing the value
print "atan2 of 45/70 is :return_val\n";

atan2 of 45/70 is : 0.571337479833627

#!/usr/bin/perl
  
# Assigning values to X and y
Y = -30;X = 40;
  
# Calling atan2() function
return_val = atan2(Y, X);
  
# printing the value
print "atan2 of -30/40 is :return_val\n";

atan2 of -30/40 is : -0.643501108793284