print "Usage: $0 <directory name>\n";

#!/usr/local/bin/perl

if ($#ARGV != 0) {
print "Usage: $0 <directory name>\n";
exit;
}

chdir @ARGV[0];

open(tmphead, "+>/tmp/headers$$");

$HeaderFlag = 1;

while (<STDIN>) {
#
# Get rid of Headers we don't want
#
if ((/^Received:/)||
(/^Message-Id:/)||
(/^Cc:/)) {
next;
}

if (/^Subject:/) {
$SubjectLine = $_;
$SubjectLine =~ s/^Subject: //;
}

if ((/^$/) && ($HeaderFlag == 1)) {
# End of headers

open(Outfile, ">$SubjectLine");
$HeaderFlag = 0;

seek(tmphead, 0,0);
while (<tmphead>) {
if ((/^Date:/) || (/^From:/) ||
(/^Subject:/) || (/^Keywords:/)||
(/^Location:/) || (/^ACategory/)) {

print Outfile;
}
}
close(tmphead);
unlink "/tmp/headers$$";
}

# Filter out the header lines

if ($HeaderFlag == 1) {
print tmphead;
}
else {
print Outfile;
}

}

close Outfile;