#!perl
use strict;
use Mail::IMAPClient;

my $server='xxx';
my $user='yyy';
my $password='zzz';

my $imap=new Mail::IMAPClient(
  Server=>$server,
  User=>$user,
  Password=>$password
) or die "Cannot connect to \"$server\" as \"$user\" : $!";

my @search=("SUBJECT","test");
$imap->search(@search) or warn "Search error\n";
my @results = $imap->Results;

foreach(@results) {print "Result : \"$_\"\n";}

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


##</code><code>##

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