Help for this page

Select Code to Download

Select or download this

my $imap = Mail::IMAPClient->new( 
   Socket   => $socket, 
...
 
$imap->select($folder) or die "Could not select: $@"; 
my @uids = $imap->search('SUBJECT', $subject_string) or die "Could not
+ find messages with subject: $@\n";

Select or download this

my @uids = $imap->search(SUBJECT => "$subject_string", DATE => "Feb 1,
+ 20101") or die "Could not find messages with subject: $@\n";