oracle - n perl DBD::Oracle でユーザー作成関数を使用する方法

Question

Oracle 11g r2 で関数を作成しました。レコードの挿入中にその関数を呼び出したいと思います。

以下は私のコードブロックです。

my $SQL="insert into sample values ( :sno, :amount , :func )";
my $sth =$dbh-> prepare($SQL);
$sth->bind_param(":amount" , $amount );
$sth->bind_param(":sno" , $i);

$sth->bind_param(":func" , my_func($amount)); 
$sth-> execute();
# I want the third parameter to be output of the function my_func.