perl -w を使わずに use warnings すればいいんじゃね?