my $message = $imap->get( 2 );
        print for @{$message};
        foreach ($message) {
                 print "$_\n";
        }


ARRAY(0x81fbce0)