Select Code to Download

my $value = 0;
my $range = 0;
...
my $temp = 0;
my $fibValue1 = 0;
my $fibValue2 = 0;

chomp(my $value = <>);

...

  $total++;
}

use strict;
use warnings;
...

--output:--
1

use strict;
use warnings;
...
--output:--
Use of uninitialized value $total in addition (+) at 1perl.pl line 9.
1