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

my $rng = Math::GSL::RNG->new;
my $random_number = $rng->get(1);
my $x = gsl_ran_lognormal($random_number, 0.1, 0.2);

print "$x\n";