#!/usr/local/bin/perl

chdir $ARGV[0] or die "Cannot chdir to first program argument: <<$ARGV[0]>>";

$fna = time.'a';

$fna++ while -e $fna;

open F,">$fna" or die "Cannot open mail file $fna : $!";

$Line1=<STDIN>;
$Line1 =~ s/\s+\Z//s;
$Line1 =~ s/^From/from/;
$LT = localtime();
print F "Received: $Line1 PreSpooler $LT\n";

while (<STDIN>){
	s/^From />From /;
	print F $_;
};

__END__

exit;

Of historical note:  this system originated as a struggle
with Digital Unix 4's POP system

opendir D,'.';

while ($fil = readdir(D)){
	-f $fil or next;
	system "/lib/mh/spop david < $fil && rm $fil";
};
__END__


whew!