use CGI qw(-any);

print CGI::foo(CGI::bar{baz=>'qux'});