in reply to Re: Detachments II: The Sequelin thread Detachments II: The Sequel
my $message = Mail::Message->read(\*STDIN);