eval "package $caller; sub nx { do_something() }";