my $f = "boot";
{local *tmp =\$f; $tmp = "loop"; GG::cc () ;print "$f\n...\n"};

sub cc { $tmp="cc did it"}; 
print "$f\n...\n";