Select Code to Download

>perl -we "my %keys={A=>'b'};my ($a,$b); while (($a,$b)=each %keys) { 
+print qq($a $b\n); }"
Reference found where even-sized list expected at -e line 1.
...