Help for this page

Select Code to Download

Select or download this

for my $folder ($imap->folders) {
        $imap->select($folder) or warn "Error: $imap->LastError\n";
...
        $folder =~ s/$sep1/$sep2/g;
        $imap->migrate( $imap2, "ALL", $folder ) or warn "Error: $imap
+->LastError\n";
}

Select or download this
```
$folder =~ s/INBOX$//g
```