TorgoX is performing a very valuable service by going through his collection of Perl scripts. Here's one I always carry with me - total:
#!/usr/bin/perlA very trivial script, but quite useful when you're trying to sum up a series of lines (from wc -l, du -k or somesuch) that start with a number on each line.
use strict;
my $total;
while (<>) {
$total += $_;
}
print "$total\n";
