#!/usr/bin/perl -w

use Data::Dumper;
use Mail::Webmail::Yahoo;

%options = ( username=>'username@yahoo.com', password=>'password' );
#print Dumper(%options);

$yahoo = Mail::WebMail::Yahoo->new(%options);

@folders = $yahoo->get_folder_list();
@messages = $yahoo->get_mail_messages('Inbox', 'all');
# Write messages to disk here, or do something else.