use strict;
  use Mail::Internet;

  my $message     = new Mail::Internet ([<>]);
  my $from        = $message->get('From');
  my $subject     = $message->get('Subject');
  my $received    = $message->get('Received');
  my @body        = @{$message->body()};