2009-03-17 use warnings perl サブルーチン内の引数全てに初期値を与えていないのでエラーが起きる use warnings sub calc { my ( $a, $b ) = @_; return $a * $b; } print calc (2);