Select Code to Download

use Modern::Perl;

my $sum_of_used;
...
    $sum_of_used += (split /\s+/)[2] while <ARGV>;
}
say $sum_of_used;