sub s1 {
  our $var;
  print "arg:   $_[0]\n";
  print "local: $var\n";
}

sub s0 {
  local our $var = 'local';
  &s1;
}

s0('arg');