#!/usr/bin/perl


use Net::IMAP::Simple;

$host = 'servercim';
$user = 'joska';
$pass = 'titok';


$server = new Net::IMAP::Simple($host);

$server->login($user, $pass);

$msgnums = $server->select('INBOX');

foreach $msgnum (1..$msgnums)
{
	if($server->seen($msgnum))
	{
		print "Olvasott üzenet! $msgnum\n";
	}
	else
	{
		print "\n----------Olvastalan-----------\n";
	
		$lines = $server->get($msgnum);
		print @$lines;
	}
	
}