Readline入力からデフォルトのテキストを印刷できません

私はデータベースへのインターフェースを作成していて、アイテムを編集できるようにしたいです。私はReadlineを使用すると思いましたが、動作させることはできません。私のコードは、以下に基づいて動作する必要があると言いたいと思います。用語::ReadLine::GnuそしてSEへの回答。

perl -w -MTerm::ReadLine -E'
$term = new Term::ReadLine "ProgramName";
$prompt = "prompt> ";
sub su {insert_text("----default----");};
$attributes = $term->Attribs;
$attributes{startup_hook} = \&su;
while (defined ($_ = $term->readline($prompt)))
{ eval; }
'

私はきれいなプロンプトを受け取りました：

prompt> 

私はこれを期待しましたが：

prompt> ----default----

私はまだPerlに精通していません、そしてますます複雑になっています。内側にバグがあるのでしょうか？何か抜けたものはありますか？それともモジュールの実装に抜け穴がありますか？