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: https://metacpan.org/release/Sub-Uplevel