sub test {
  $arg = shift;
  do{ print "Did preturn!\n"; return } if $arg;
  print "Did not print and return!\n";
}

test(0);
test(1);