programming-examples/perl/SystemFunction/print POSIX-tan(atan2 (1, 1)).pl

use POSIX;

print POSIX::tan(atan2 (1, 1));