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