#!/usr/bin perl
use strict;
use warnings;
use Data::Dumper;
use Mail::Client::Yahoo;

my $y= Mail::Client::Yahoo->login( username => 'doctor_moron', password => 'metal', secure => 1);

$y->select_folder('nms'); #i have folder called 'nms'
my @ids = $y->message_list();
my $mid = $y->message($ids[0]);
print "hoohhaa:$mid \n";

$y->logout;