my $rc = $DB->sql("SELECT SUM(Size_Byte) FROM Files_U WHERE Type ='doc'");
die "ERROR: $rc" if $rc;
use Data::Dumper;
while( my $row = $DB->FetchRow ){
  warn Dumper $row;
}