Select Code to Download

use strict;
use warnings;
my $totcalls = 0;
...
    $totcalls += [ $layer3 =~ m/^\s*([0-9]+) Active/ ]->[0];
    print "TOTAL : $totcalls \n";
}