my $searchSubject = 'test email "abc123" approved';
sub search {
        my ($mailbox, $folder, $searchSubject, $searchFromAddress, $searchToAddress) = @_;

        #Connecting to mailbox
        ...
        $imap->examine($folder);
        $imap->Uid(1);

        my @uids = $imap->search('UNSEEN', 'SUBJECT', $searchSubject, 'HEADER', 'FROM', $searchFromAddress, 'HEADER', 'TO', $searchToAddress);