Select Code to Download

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

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

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