#!/usr/bin/perl
#$Id: ttest.pl,v 1.1 2010/03/15 13:28:59 skoch Exp $
use strict;
use warnings;
use Statistics::Distributions;

my $df = shift;
my $per = shift;
exit unless ($df && $per);
#my $t = Statistics::Distributions::tdistr($df,$per);
my $t = 2*Statistics::Distributions::tprob($df,$per);
print $t,"\n";
