P:\test>perl -e"'fred' => 1;"