Hmm, you might like this:

tachyon

$\=' ';
sub AUTOLOAD{@_=caller();print shift}
package Back;::();
package To;::();
package The;::();
package Drawing;::();
package Board;::();