> perl
$x=42;
{
  package Inner;                           
  $x=666;
}
print $x;


__END__
42