http://d.hatena.ne.jp/perlcodesample/20090314/1236408791 以下は、hidekさんのlocal::libによるやり方(via otsuneさん) http://blog.hide-k.net/archives/2009/02/locallibrootcpa.php