#!/usr/bin/perl
use PDL; 
use PDL::GSLSF::GAMMA;
my ($out) = gsl_sf_gamma(0.4);
print "$out\n";