Select Code to Download

>perl -e"$_ = 0; die qq{uh oh!\n} if $_ = 1;"
uh oh!
...
>perl -e"$_ = 0; die qq{uh oh!\n} if 1 = $_;"
Can't modify constant item in scalar assignment at -e line 1, near "$_
+;"
Execution of -e aborted due to compilation errors.