Select Code to Download

# `my ( ... ) = ...` evaluates the RHS in list context.
my ( $increment ) = @_;

# `shift` is short for `shift( @_ )`
my $increment = shift;

print $result;

print "$result\n";

say $result;

$result += $increment;

$result = $result + $increment;