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

test(0);
test(1);