Perl::Hash perlenv = m_perl->GetHash("ENV");
if(perlenv.ValidPtr()) {
	perlenv.Store("foo", Perl::Scalar("bar"));
	perlenv.Store("bar", Perl::Scalar("foo"));
}