opendir(DIR,"/home/svr/1.0"); 
  @dir_list = grep(/^RH_CD\d+$/,readdir(DIR)); 
 
  closedir(DIR); 
  foreach $dir (@dir_list) 
  { 
   opendir(DIR,"/home/svr/1.0/$dir"); 
 
   @file_list = grep(!/^\.\.?$/,readdir(DIR)); 
 
   closedir(DIR); 
   foreach $file (@file_list) 
   { 
     $filename = "/home/svr/1.0/$dir/$file"; 
 
     $base{"$dir/$file"} = $file; 
     if (-f $filename) 
     { 
       $filesize{"$dir/$file"} = -s $filename; 
     }elsif (-d $filename) 
     { 
       chomp($filesize{"$dir/$file"} = qx(du -sk $_)); 
       $filesize{"$dir/$file"} *= 1024; 
     } 
   } 
 } 
 $limit = 4*1024*1024*1024; 
 $dest = 1; 
 chomp($dest_size = qx(du -sk "/home/des/Disk1$dest/Linux")); 
 
 $dest_size *= 1024; 
  while (%filesize) 
 { 
   $got_onfiltered= 0; 
   foreach (sort {$filesize{$a} <=> $filesize{$b}} 
  keys %filesize) 
   { 
     last if $dest_size + $filesize{$_} > 
  $limit; 
     system("cp -Rp /home/svr/1.0/$_ /home/des/Disk$dest/Linux/$base{$_}"); 
 
  $dest_size = $dest_size + $filesize{$_};
     delete $filesize{$_}; 
     $got_onfiltered= 1; 
   } 
   if (!$got_one) 
   { 
     if ($dest_size == 0){ 
       print "ERROR: all remaining files too big:\n"; 
       foreach (keys %filesize) 
       { 
         print "$_: $filesize{$_}\n"; 
 
       } 
       die; 
     }else{ 
       $dest++ 
       mkdir ("/home/des/Disk$dest/Linux)
       $dest_size = 0; 
     } 
   } 
 }