#!/usr/bin/perl -w
use strict;
use Mail::Message;

<>; # toss the mbox format From line
my $msg = Mail::Message->read(\*STDIN);

# (process the message)

# write it back to STDOUT
print $msg->head->createFromLine;
$msg->print;
exit;