#!/usr/bin/perl

open FN, ">>$ARGV[0]";
while (<STDIN>) {
 print;
 if ($_=~/From:/) {
        $fromline = $_;
        $fromline =~ s/From: .*\<(.*)\>/$1/i;
        print FN "$fromline";
 }
}