Select Code to Download

my $searchSubject = 'test email "abc123" approved';
sub search {
        my ($mailbox, $folder, $searchSubject, $searchFromAddress, $se
+archToAddress) = @_;
...
        $imap->Uid(1);

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