use strict; use warnings; $x = 0; if ($x) { print "$xは真です"; } else { print "$xは偽です"; }