#!/usr/bin/perl -w

use strict;

my $arg = 3.14159 / 4;
my $res = tan($arg);
print "$res\n";
