$value = 1;sub printem() {print "\$value = $value\n"};sub makelocal(){ local $value = 2; printem;}makelocal;printem;