$x = 23;

sub fun1 {
   # try putting `my` or `local` in front of $x
   $x = 371;
   fun2();
}

sub fun2 {
   print "$x\n";
}

fun1();
fun2();
