use Net::IMAP::Simple;

$server = new Net::IMAP::Simple( "SERVER.DE" );
$server->login ("USERNAME", "PASSWORT");
$number_of_messages = $server->select( "IMAP ORDNER" );

foreach $msg (1..$number_of_messages) {
	if ($server->seen( $msg )) {
		$seen = '1';
	} else {
		$seen = '0';
	}
	$lines = $server->get( $msg ); #Von hier an ist es als gelesen markiert.... :-(
	.....
}