36 chomp (my $sel = <>);
     37 $imap -> select( $folders[$sel] );
     38 my @range = reverse(1..$folderorder{$folders[$sel]}); # 1.. #of msgs
     39 
     40 MAILBOX: for my $count (@range) { # newest to oldest
     41 #MAILBOX: for my $count (1..$folderorder{$folders[$sel]}) {
     42   my $messageno;
     43   my ($from, $to, $sub);
     44   my @aRef = $imap -> parse_headers( $count, "Subject", "Date", "From", "To", "Cc" ) ;
     45   if (! $aRef[0]) {
     46     next;
     47   }
     48   print "[ $count ]\n";
     49   foreach my $header (@aRef) {
     50     print map { "$_\t: " .$header -> {$_}[0] ."\n" } sort keys %{ $header };
     51     $from = @{ $header -> {From} }[0];
     52     $to = @{ $header -> {To} }[0];
     53     $sub = @{ $header -> {Subject} }[0];
     54   }
     55   if (not $count % 5 ) {
     56     print "-- more or selection --> ";
     57     chomp ($messageno = <>);
     58     print "\n";
     59     goto MENU if $messageno eq qq{q};
     60     dispatch_message( $folders[$sel], $messageno, $from, $to, $sub ) if $messageno;
     61   }
     62 }