#
# the 'magic' of -x functions in Perl
# -s gives size of $file in bytes, -M gives age in days.
#
    my $size =-s $_;
    my $age =-M $_;
    $size /= 1048576.0;
    $total += $size;