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

##</code><code>##

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

##</code><code>##

# disable all warnings
no warnings;
my $x;
if ($x = 1) {}

# disable only warnings regarding syntax
no warnings 'syntax';
my $x;
if ($x = 1) {}