#!/usr/bin/perl -l

BEGIN {
    $|  = 1;
    $^W = 1;
}

use autodie;
use PDL::LiteF;
use common::sense;

BEGIN {
    use PDL::Config;
    if ( $PDL::Config{'WITH_GSL'} ) {
        eval " use PDL::GSLSF::GAMMA ";
        unless ($@) {
            return;
        }
        else {
            print "Houston, we have a problem: $!";
        }
    }
}

my $num = 0.4;
my ($f, $e) = gsl_sf_gamma($num);
print $f;