Select Code to Download

    $stream = gsl_fopen("histogram", 'r');
    my $h = gsl_histogram_alloc(100);  
    ok_status(gsl_histogram_fread($stream, $h));

my $fi = gsl_fopen( 'infile','r');