bash-2.03$ cat ./atan2.pl 
#!/usr/local/bin/perl -w
use strict;
 
my $x = defined($_=shift) ? $_ : die "Enter X\n";
my $y = defined($_=shift) ? $_ : die "Enter Y\n";
 
my $r = atan2( $y, $x );
print "angle = $r radians\n";
bash-2.03$ ./atan2.pl 4 3 
angle = 0.643501108793284 radians