sub one_exit {
  my $foo=shift;
  my $return=shift;
  CORE:{
     last CORE unless $foo;
     #...
     last CORE if $foo eq "bar";
     #...
  }
  return $return
}