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