#!/home/y/bin/perl
use warnings;
use strict;
use Mail::Box::Manager;
...
...

my $mgr    = Mail::Box::Manager->new();
Mail::Reporter->defaultTrace('DEBUG');
$mgr->registerType( imaps => 'Mail::Box::IMAP4::SSL' );

my $folder = $mgr->open(folder=> 'imaps://user:password@egl-webmail.corp.yahoo.com:993/INBOX',  access=>'r') or die  "folder connected\n"; 

foreach my $message($folder->messages){
...
}

$folder->close();