use Mail::Client::Yahoo;
my $y = Mail::Client::Yahoo->login(
           username => 'user',
           password => 'passwd',
           secure   => 0,                                      );
$y->select_folder('Inbox');
print $y;
my $m = $y->message(0);        
print $m;
my  @ids = $y->message_list();
print @ids;
$y->message($ids[0]);
print $y;
# $y->delete_message(0);
$y->logout();