Thanks pradeep,
I have written a recursive routine to calculate directory size and it works great. Hope it proves helpful for others.

Code: Perl
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";