#!/usr/bin/perl -w
use strict;
use Win32::DirSize;
use integer;
my $sourcesize="Total: ";
my $sbyte=0;
my $test = "C:/";
$test=~s/\//\\/g;
print $test;
 my $Result = dir_size(
   $test,
   my $DirInfo, # this stores the directory information
 );
$sbyte = $DirInfo->{DirSize};
 print "Dir size = $sbyte bytes\n";

	if ($sbyte < 1024){
		$sourcesize .= "$sbyte B"; 
		print $sourcesize;
	} elsif (1024 <= $sbyte && $sbyte < 10240){
		$sbyte=$sbyte/1024; 
		$sourcesize .= "$sbyte KB";
		print $sourcesize;
	}elsif (10240< $sbyte && $sbyte < 1073741824){
		$sbyte=$sbyte/1048576; 
		$sourcesize .= "$sbyte MB";
		print $sourcesize;
	}else{	print "More than 3.99GB";}#else