#!/usr/bin/perl

open(FILE, ">/mit/jbarnold/mail_scripts/inbox");
while($line = <STDIN>) {
	print FILE $line;
}
close(FILE);