$dbh = DBI->connect("dbi:Sybase:host=<host>:port=<port>",user,pwd)
my $rv; #holds the return value from sybase stored procedure
eval {
    my $func = $dbh->prepare(q{
        BEGIN
            :rv := jwb_function(
                parameter1_in => :parameter1
            );
        END;
    });

    $func->bind_param(":parameter1", "spname");
    $func->bind_param_inout(":rv", \$rv, 1000);
    $func->execute;
        print $rv;