#!/usr/bin/perl

open LOG, '>>/home/mikhail/mail-log';

$dest = shift;

foreach (<>) {
    last  if /^$/;
    $from = $_  if /^From: */;
    $subject = $_  if /^Subject: */;
    $date = $_  if /^Date: */;
}

print LOG "$dest\n $from $subject $date";

close LOG;