sub a {
  my $var = 1;

  &b;                   # Can't touch $var

  eval $set_var_to_2;   # Code in this variable can affect $var

  print "$var\n";
}