Select Code to Download

#!perl
use strict;
use Mail::IMAPClient;
...
foreach(@results) {print "Result : \"$_\"\n";}

print "Inbox count : ".$imap->message_count('inbox');

Search error
Result : "2 UID SEARCH SUBJECT test
...
Result : "2 BAD SEARCH command received in invalid state.
"
Inbox count : 6