This is a nit and not related to your question but you're line use CGI qw(:standard); can and should be changed to use CGI;. You don't import all those extra functions when you just use the object interface.

You should also consider using the unambiguous object method calling syntax. Replace $query = new CGI with $query = CGI->new. There are cases where you can introduce unexpected bugs by using your original form. Be nice to yourself and be explicit.

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;
[download]