Script in (4) lacks one line:

my $message = Mail::Message->read(\*STDIN);

See Mail::Box-Index for additional features.
Mark Overmeer (who is waiting for an entrance password for the Monastry)