perl 無名サブルーチン

#無名サブルーチンで戻り値を直接取得する

#無名サブルーチン
$string = sub{
    #文字列を返す
    return("こんにちは、私は$nameです。\n");
};

#戻り値を表示
$name = "花子";
print "戻り値：", &$string;

#実行結果
# 戻り値：こんにちは、私は花子です。