#!/usr/bin/perl

use warnings;
use strict;

use Net::POP3;

# my $mail_server = 'pop.mail.yahoo.com';
my $mail_server = 'pop3.web.de';

my $pop = Net::POP3->new($mail_server,Timeout => 30) or die "Keine Verbindung zu Server : $!\n";

print $pop->banner();