Perl.EvalScript ("sub test{ return 1;};");