Select Code to Download

C:\Users\HomeAdmin>perl -MO=Deparse -Mstrict -wle"my $var = 1; $var ||
+ 1;"
BEGIN { $^W = 1; }
...
my $var = 1;
'???' unless $var;
-e syntax OK

1 if $var;