# Example 4
#
# What about the return value of a PLSQL function?
# Well treat it the same as you would a call to a function 
# from SQL*Plus. We add a placeholder for the return value 
# and bind it with a call to bind_param_inout so
# we can access it's value after execute.

  my $whoami = "";
  $csr = $db->prepare(q{
        BEGIN
            :whoami := PLSQL_EXAMPLE.FUNC_NP;
        END;
  });
  $csr->bind_param_inout(":whoami", \$whoami, 20);
  $csr->execute;
  print "Your database user name is $whoami\n";
  $db->disconnect;