perlでオブジェクト指向プログラミングに挑戦中ですが、
引数でオブジェクトを渡す方法がわかりません。。どなたかよろしくお願いします。

　my $unko = new Unko();
　$unko->set(1,20080331,"黄色","悪臭","ゆるゆる");

　print "排泄日:" . $unko->{dropDate};

　# データベースへの登録
　my $db = new Dao();
　$db->insertUnkoTable($unko);
　（以下省略）
　
{
　package Dao;
　
　　sub insertUnkoTable {

　　　# データ挿入用のSQL文
　　　my $sql = "INSERT INTO unko VALUES(?,?,?,?,?)";

　　　# 以下でオブジェクト参照を受け取りたいがNULLになっている模様。
　　　my $info = $_;

　　　my $hst = $hDB->prepare($sql);
　　　if ($hst) {
　　　　my $ret = $hst->execute(
　　　　　　　$info->{dropDate},
　　　　　　　$info->{color},
　　　　（以下省略）
}