#!/usr/local/bin/perl -w

use Math::Trig;
# use bignum qw/e PI/;

$z = $ARGV[0];
die "Wrong number" if ($z<=0 || $z=~/\D\D/ || !defined $z);
$step = 1/1000000;
$r = 0.5;
# densidad de la distribución normal estandarizada
# Z = (1/sqrt(2*pi))*exp(1)^(-0.5*z*z)
$static = 1/(1000000*sqrt(2*pi));
$e = exp(1);
for ( my $i = $step; $i<=$z; $i += $step ) {
    $r += $static*($e**(-0.5*$i*$i));
#    print "$r\n";
}
$r = sprintf ("%.7f",$r);
print "P[Z<=$z] = $r\n";
$rleft = 1 - $r;
$r -= $rleft;
print "P[-$z<=Z<=$z] = $r\n";

__END__
Esta utilidad nos devuelve la probabilidad de una tabla N(0,1) de una cola
y de dos colas