foreach my $f (sort @topfolders) {
  $imap->status("{hostname:143/imap}$f",
   "messages","recent","unseen");
  my $new_count=$count;
  my $new_new=$new;
  my $new_unread=$unread;
  my %foldhash= (
   'name' => $f,
   'count' => $new_count,
   'new' => $new_new,
   'unread' => $new_unread
  );
  my @subfolders=&foldertree($imap,$f);
  my $fc=@subfolders;
  $foldhash{'fc'} = $fc;
  $foldhash{'subfolders'} = @subfolders;