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