Select Code to Download

my $sum;
                                                                      
+ 
...
while(<FILE>) { $sum += ( split /\s+/ )[37]; }
close FILE;
print $sum;

shell> perl -naF\s+ -e "$sum+=$F[2]; END{print $sum}" file