C:\@Work\Perl>perl -wMstrict -e "LABEL: { outer(); }
sub outer {
  print qq(in outer() before inner() \n);
  inner();
  print qq(in outer() after inner() \n);
  }
sub inner {
  print qq(in inner() \n);
  no warnings;
  next;
  }"
in outer() before inner()
in inner()

C:\@Work\Perl>perl -wMstrict -e "LABEL: { outer(); }
sub outer {
  print qq(in outer() before inner() \n);
  inner();
  print qq(in outer() after inner() \n);
  }
sub inner {
  print qq(in inner() \n);
  no warnings;
  ;
  }"
in outer() before inner()
in inner()
in outer() after inner()
[download]