Select Code to Download

sub global_sum {
  state $sum = 0;
  $sum += $_[0];
  $sum;
}

$ perl -e '
> use strict;
...
Heavy calculations
42
42

$ perl -e '
> use strict;
...
> '
47
52