local y typeglobs

Es posible usar local sobre un typeglob para salvar temporalmente su valor:

$b = 5;
{
  local *b;
  *b = *a;
  $b = 20;
}
print $a; # 20
print $b; #  5