Select Code to Download

c:\test>perl -MO=Deparse,-p -e"$fred == 42 ? $config = 'k1' : $config 
+= 'k2';"
((($fred == 42) ? ($config = 'k1') : $config) = 'k2');
-e syntax OK