#!/usr/bin/perl

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

my $rng = Math::GSL::RNG->new;
my $num = $rng->raw(1);

my $x = Math::GSL::gsl_ran_lognormal::new(
        $num, 0.1, 0.2);

print "$x\n";