$imap->select($folder) or die "Could not select: $@\n";

        my $msgcount = $imap->message_count($folder);
        for(my $i = 1; $i <= $msgcount; $i++)
        {
                my $uidList = $imap->copy('maricar', $i) or die "cant";
        }