my $path="/home/ftp/".$login_id;

         my @dir=$ftp->ls or $newerr=1;

     my @files;

     my $project;

         $size=0;    

         foreach(@dir) 

     {    

         my $project="/home/ftp/".$login_id."/".$_;        

         $ftp->cwd("$project") or die "Cannot change working directory ",

                 $ftp->message; # change dir if required

         @files=$ftp->ls or $newerr=1;        

             foreach(@files) 

             {

                 $path=$project."/".$_;        

                 $size=$size + $ftp->size("$path");                

             }

     }

         print "Size = $size";