use Mail::Client::Yahoo; 
 
  $y = Mail::Client::Yahoo->login 
  ( 
    username => 'user', 
    password => 'password', 
    secure   => 0,            # 1 is for the paranoid and patient 
  ); 
    @flist = $y-> folder_list( ); 
   
  foreach $folder(@flist) 
  { 
	$y->select_folder($folder); 
	 
	@ids = $y->message_list(); 
	foreach $id(@ids) 
	{ 
		 
		$message = $y->message($id);  
		while ($message =~ m/(\"(.+)\"\s\<(\S+@\S+)\>)|(\<(\S+@\S+)\>)/g)  
		{ 
			print $2, ";", $3, ";", $5, "\n"; 
			last; 
		} 
		last; 
	} 
	last; 
  #} 
  $y->logout();