local *evalsub;
eval $code;
evalsub();