use strict; use warnings; #### perl -MCGI=foo -le"print foo{bar=>baz}=>qux"