void do_something () {
	dSP;
	ENTER;
	SAVETMPS;
	eval_pv("$a = 1", 1);
	FREETMPS;
	LEAVE;
}