my $rv;
my $func = $dbh->prepare(q{
        BEGIN
            get_next_session_id(:rv);
        END;
    });

    $func->bind_param_inout(":rv", \$rv, 6);
    $func->execute;