#!/usr/local/bin/perl
# This is perl V 5
# 
# reads mail from stdin and saves them to a specific directory
# overwriting old entries in that directory
#

$save_dir='/temp/save/';

while(<>) {
	chop;
	($gaga,$site)=split;
	if ($gaga eq "Site:") {
		$path=$save_dir.$site;
	print "\$path is ",$path,"\n";
		open(OUT,">$path") || die "Can't open $path";
		while(<>) {
			print OUT $_;
		}
	}
}


