sub bar { no warnings 'exiting'; redo FOO; } FOO: { print "Hey!"; bar(); }