#!/usr/athena/bin/perl

$ll = `ls -la`;

@listing = split(/\n/, $ll);
$firstline = shift(@listing);
$thisdirtot = 0;
$| = 1;

foreach $_ (@listing){
	split;
	$n = $_[3];
	print("$n\n");
	$x = int($n);
	$thisdirtot += $x;
}
print("---\n$thisdirtot\n");