偶数奇数判定

　2で割った余りが0か1かで偶数か奇数かが分かります。

my $val = 100;
if ($val % 2 == 0) {
	print "偶数です。\n";
} else {
	print "奇数です。\n";
}