18 lines
261 B
Perl
18 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".
|