$client->select("Inbox") or die "Could not select the email Inbox folder: $@\n"; 
my $msgcount = $client->message_count("Inbox");  
		 
 # Get a list of messages in the current folder: 
        my @waldenMsgs = $client->search("SUBJECT","fetch this email") or die "There are no requests. $@\n"; 
		my $msgSet = Mail::IMAPClient::MessageSet->new(@waldenMsgs); 
		my @msgs = $msgSet->unfold; 
		my $numMsgs = @msgs; 
		WriteLog("There are $numMsgs requests."); 
# 	step through the messages and parse the body information		 
		foreach(@msgs){ 
			my %recHash; 
			my $msgString = $client->body_string($_);