perl -MCGI=foo -le"print foo{bar=>baz}=>qux"