perl -Xe 'my $x; if ($x = 1) {}'