6 lines
138 B
Perl
6 lines
138 B
Perl
|
my $original = 'Hello.';
|
||
|
|
our $alias;
|
||
|
|
local *alias = \$original;
|
||
|
|
$alias = 'Good evening.';
|
||
|
|
print "$original\n"; # prints "Good evening."
|