Select Code to Download

sub foldertree($$) {
 my ($imap,$fname) = @_;
...
 }
 return @folderlist;
}

 foreach my $f (sort @topfolders) {
  $imap->status("{hostname:143/imap}$f",
...
  my $fc=@subfolders;
  $foldhash{'fc'} = $fc;
  $foldhash{'subfolders'} = @subfolders;