my $imap = Net::SIMPLE::IMAP->new('imap.myserver.de');
$imap->login(myusername,mypassword);
$imap->select('Inbox');
my @index = $imap->list();

for my $m ( @index ) {

write_to_file  ( $imap->get( $m ); ) ; 

}

$imap->logout;

1;
__END__