I know, I know... this is a bit out of date... and it's not really a poem, but it's also not really an obfu or anything else... so I flash my artistic license and present...

for(grep /base/i, (keys %{*your::})) { 
   *{"us::$_"} = \*{"your::$_"}; undef *{"your::$_"};
}
[download]

of course, perl6 will eliminate this terrible threat. ;-)

Update changed \& \* so it would works with other things than subroutines... silly me.

                - Ant
                - Some of my best work - Fish Dinner