sub readfiles
{
foreach $dir (@store)
{
opendir (DIR, $dir) or die "failed to open:$!";
@thefiles= readdir(DIR);
closedir(dir);
foreach $f (@thefiles)
{

unless ( ($f eq ".") || ($f eq "..") )
{
#print "$f \n";
$path=join("",$dir,"/",$f);
#print "$path \n";
if ( -d $path)
{
#print "$f a directory \n";

$store[$i]=$path;
$i++;
}
else
{
@fsdata=stat($path);
$a+= $fsdata[7];
}

}
}
}
print "$a \n";
}

foreach $store (@store)
{

print "$store \n";
}

The above script will help in calculating the size of the directory.