our $camelid = 'llama';
sub phooey
{
print "$camelid\n";
}
phooey; # Prints "llama".
sub do_phooey
local $camelid = 'alpaca';
phooey;
do_phooey; # Prints "alpaca".