Select Code to Download

Use of uninitialized value $sum in concatenation (.) or string at test
+A.pl line 26.
sum=
Use of uninitialized value $sum in concatenation (.) or string at test
+A.pl line 26.
sum=

use strict;
use warnings;
...
    my $sum=$thr -> join;
    print "sum=$sum\n";
    }