#!/usr/bin/perl

use Email::Filter;
my $mail = Email::Filter->new;
my $myFrom = $mail->from;
my $mySubject = $mail->subject;
exec "echo \"From: $myFrom \nSubject: $mySubject\" > temp.log";