#!/usr/bin/perl


use Net::POP3;

$host = 'szervercime';
$user = 'joe';
$pass = 'titok';

$pop = Net::POP3->new($host);
$pop = Net::POP3->new($host, Timeout => 60);


if($pop->login($user, $pass)> 0)
{
    my $msgnums = $pop->list;
    foreach my $msgnum (keys %$msgnums)
    {
	my $msg = $pop->get($msgnum);
	print @$msg;
	print "\n\n=============================================================\n\n";
    }
}

$pop->quit;