System Functions Perl

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