$B$$$i$M(B
名前がいまいちなので変更
モジュールを使ってみる
perl$B$K%0%m!<%P%k$OJQ?t$O$J$$!#(Bmain$B$N%Q%C%1!<%8JQ?t$G$"$k!#(B
呼び出し時にもパッケージ修飾が必要だった