SV* tmp = POPs;
Perl_sv_dump(my_perl,tmp);