use strict;
use warnings;
use integer;
use IO::Prompt::Hooked;
use List::Util qw(sum0);

my $max = prompt("Enter Limiting number (1-50)");
my @terms = grep { $_ % 2 } 1 .. $max;
my $sum = sum0 @terms;
my $expression = join '+', @terms;
print "($expression)=$sum\n";