7 lines
155 B
Perl
7 lines
155 B
Perl
|
use Lexical::Alias;
|
||
|
|
my $original = 'Hello.';
|
||
|
|
my $alias;
|
||
|
|
alias $alias, $original;
|
||
|
|
$alias = 'Good evening.';
|
||
|
|
print "$original\n"; # prints "Good evening."
|