17 lines
261 B
Perl
17 lines
261 B
Perl
our $camelid = 'llama';
|
|
|
|
sub phooey
|
|
{
|
|
print "$camelid\n";
|
|
}
|
|
|
|
phooey; # Prints "llama".
|
|
|
|
sub do_phooey
|
|
{
|
|
local $camelid = 'alpaca';
|
|
phooey;
|
|
}
|
|
|
|
do_phooey; # Prints "alpaca".
|
|
phooey; # Prints "llama".
|