#!/usr/bin/perl

use Net::IMAP::Simple;
$| = 1;

$server = new Net::IMAP::Simple( 'your.imap.server' );
$server->login( 'username', 'password' );

@folders = $server->mailboxes();

foreach $folder ( @folders )
{
    open (FOLDOUT,">~/IMAPbk/$folder");
    $count = $server->select( $folder );
    print "$folder has $count messages, fetching";
    foreach $msg ( 1 .. $count )
    {
        print ".";
        $fh = $server->getfh( $msg );
        print FOLDOUT <$fh>;
        close $fh;
    }
    print "\n";
}

$server->quit();