#!/bin/perl
use IM::Config;
use IM::MIME;

## foreach $FILE (1..5 )	{
foreach $FILE (<? ?? ??? ????>)	{
    open(FILE);
    while(<FILE>) { 
	if ( /^$/ ) { last ; }
	elsif ( /^From:(.*)/    ) { $from    = $1 ; $prev = 'from' }
	elsif ( /^Subject:(.*)/ ) { $subject = $1 ; $prev = 'subject' }
	elsif ( /^Date:(.*)/ )    { $date    = $1 ; $prev = '' }
	elsif ( /^\s+(.*)/      ) {
	    if    ( $prev eq 'from'    ){ $from    .= $1 ; }
	    elsif ( $prev eq 'subject' ){ $subject .= $1 ; }
	}
	else {
	    $prev = '';
	}
    }
    close(FILE) ;
    $decoded_subject = mime_decode_string($subject);
    $decoded_from    = mime_decode_string($from);
    printf("%5d %s\n\tFrom %s on %s\n", 
	   $FILE, $decoded_subject, $decoded_from, $date);
}