Help for this page

Select Code to Download


  1. or download this
    my $x = 4;
my $y = 3;
my $z = $x * $y;
say $z;
  2. or download this
    use 5.010;

...
}

say $sum;
  3. or download this
    use 5.010;

...
}

say sum(@numbers);
  4. or download this
    use 5.010;

...
}

say sum @numbers;
  5. or download this
    use 5.010;
use IO::Handle;
...
my $answer = Sum->new;
$answer->add($_) for @numbers;
STDOUT->say( $answer->total );