$bar = 'bar';

    # This prints 'bar'
    *foo = \"The $bar is here";
    $foo = "bar";
    print "$foo\n";

    # This dies
    *foo = \"The bar is here";
    $foo = "bar2";    # error here
    print "$foo\n";