Like Tcl's uplevel() function, but not quite so
dangerous. The idea is just to fool caller().
All the really naughty bits of Tcl's uplevel() are avoided. 

WWW: http://search.cpan.org/dist/Sub-Uplevel/