RosettaCodeData/Task/Unicode-variable-names/Perl/unicode-variable-names-3.pl

11 lines
84 B
Perl

use utf8;
use v5.10;
sub Δ () : lvalue {
state $val;
}
Δ = 1;
Δ++;
say Δ;