Select Code to Download

use Data::Dumper;
use List::Util qw(sum);
...
}

print "Total     \t: $sum";

#!/usr/bin/perl
use warnings;
...
    }

print "Total     \t: $sum";