更新：
単純ですが、実際には、connectによって返されるハンドルを割り当てます。 $l_dbhへの呼び出し ただし、$dbhでメソッドを呼び出します 。あなたはしなければならない strict
を使用してください 。
元の回答：
データベースハンドル$dbh が定義されていないため、接続に失敗しました。呼び出しの戻り値を確認するか、{ RaiseError => 1}を指定する必要があります connectで 理由を見つけるために電話してください。
さらに、すべてのサブ呼び出しの前に&を付ける理由はありません。 ：ConnectFailed( )を使用します &ConnectFailed( )の代わりに 、サブ呼び出しの前に&を付けることの効果を知らない限り そしてその効果を持ちたいと願っています。
perldocperlsub から ：