script-email-addr:      "|/var/perl/myscript.pl"

##</code><code>##

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