use Net::POP3;
 
$user = "";
$passwd = "";
$pop3Server = "";

$pop3 = Net::POP3->new($pop3Server, Timeout => 5);

print "Einloggen in $pop3Server als $user ...\n";
$messagenum = $pop3->login($user,$passwd) || die "Konnte nicht in $pop3Server einloggen"; 
print "Sie haben $messagenum Nachrichten\n\n";

# Betreffszeilen der neuen Emails werden ausgelesen und angezeigt.
# Siehe unten für eine Erläuterung dieses Code-Blocks


for ($i=1;$i<=$messagenum ;$i++) {
  open(file, ">$i.txt") || die "Datei wurde nicht gefunden\n";   # Datei zum anhängenden Schreiben öffnen
  $subject = $pop3->top ($i);
  foreach  $zeile (@$subject) {print file "$zeile";}
print file '\n' x 10;
$subject = $pop3->get($i);
print file "@$subject";
close(file);
	#$pop3->delete($i);
print "Mail ($i) - deleted\n";

}

$pop3->quit();

	filename="test.zip"
UEsDBBQAAAAIAJ2ORTZoS7YZGgIAAJoDAAAfAAAAY2hpbGthdFBlcmwvQUFBX1F1aWNrU3RhcnQuaHRtbG1Ty27bMBA8x0D+YaEeerFM+1Y4lIAg7bFF+voAWlxJRChSIVd21KD/3iUlHxLUJ5G7Mzs7
....
------=_NextPart_000_001D_01C888D1.562D9770--
 

#!/usr/bin/perl
use MIME::Parser;


1: $txtfile ='mail/1.txt';
2: $parser = MIME::Parser->new();
3: open(INPUTSTREAM,"<$txtfile") or die $!;
4: $entity = $parser->read(\*INPUTSTREAM);

5: $parser->output_to_core();
6: $pfad= '/test';
7: $parser->output_dir($pfad);
8: $parser->output_prefix("msg1");
9: #$entity->print_header(\*STDOUT);
10: #$entity->print_body(\*STDOUT);

#!/usr/bin/perl
use MIME::Parser;
use strict; 
use warnings;

my $txtfile ='1.eml';
my $parser = MIME::Parser->new();
open(INPUTSTREAM,"<", $txtfile) or die $!;
my $entity = $parser->read(\*INPUTSTREAM) or die $!;

$parser->output_to_core();
my $pfad= '/tmp';
$parser->output_dir($pfad);
$parser->output_prefix("msg1");
#$entity->print_header(\*STDOUT) or die $!;
#$entity->print_body(\*STDOUT) or die $!;