#!/usr/bin/perl
open (MAIL, ">/home/brian/mail.txt");
print MAIL "\n";
while (<STDIN>) {print MAIL $_}