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