nope, shouldn't work, each block in perl has its own scope.
In reply to Re^2: A useful use of goto by The Perlman in thread A useful use of goto by Corion