use Devel::Peek;
$foo = *foo;
Dump($foo);
[download]

Fair enough. For those who don't follow, the "hole" is that whenever an explicit glob is the RHS of an assignment, the member of the glob matching the LHS will be substituted. This is because a glob is both a type and a collection of types.

---

My criteria for good software:

1. Does it work?
2. Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

no, no, what I wanted to show is that when a glob ia assigned to a scalar, the scalar becomes a glob!

After

$foo = *foo
[download]

$foo is a glob!