#! c:/perl/bin/perl.exe -slw
use strict;

use Win32::ODBC;

my $DSN = 'DD1';
my $DB = new Win32::ODBC($DSN) || die "Error => $DSN $!\n";

my $total = $DB->sql("SELECT SUM(Size_Byte) FROM Files_U WHERE Type ='doc'");
#print "$total"; this is not correct
$DB->Close;