Thank you to both. Here is codes that works...

Regards, James

use Math::GSL::Randist qw/:all/;
use Math::GSL::RNG;

my $rng = Math::GSL::RNG->new;
my $random_numbers = $rng->raw();
my $x = gsl_ran_lognormal($random_numbers, 0.1, 0.2);

print "$x\n";
[download]