#!/usr/bin/perl

open(FILE, ">>/afs/sipb.mit.edu/user/sipb1/mail_scripts/inbox");
while($line = <STDIN>) {
	print FILE $line;
}
close(FILE);
