use strict;
use warnings;
use Mail::IMAPClient;
use IO::Socket::SSL;

############################
###  SSL erstellen
############################
my $socket = IO::Socket::SSL->new ( PeerAddr		=> 'imap.web.de',
   				    PeerPort 		=> 993,
				    SSL_verify_mode 	=> SSL_VERIFY_NONE,
  				  ) or die "socket(): $@";


my $client = Mail::IMAPClient->new ( Socket   		=> $socket,
   				     User     		=> '****@web.de',
   				     Password 		=> '***********',
  				   ) or die "new(): $@";

############################
###  select Ordner
############################

$client->select('INBOX');

############################
###  Mails holen
############################

my @mails = ($client->seen(),$client->unseen);

############################
### Mail-Durchlauf
############################

foreach my $id (@mails)
{
	print "\nid: $id\n";

    	my $from 	= $client->get_header($id, 'From');
    	my $subject 	= $client->get_header($id, 'Subject');
    	my $date 	= $client->get_header($id, 'Date');

	print "\nFrom: $from  Subject: $subject Date: $date";

	####### Mail löschen
	print "\nMail loeschen Ja \ Nein:  ";
	chomp (my $jn	= <STDIN>);
	if( $jn eq "J" || $jn eq "j" )
	{
		print "\nMail-ID $id wird geloescht";
		$client->delete_message($id) or warn "Could not delete_message: $@\n";
	}

};

############################
### Verbindung trennen
############################

$client->logout();