Can't return outside a subroutine

##</code><code>##

This is perl, v5.9.0 built for i686-linux-thread-multi