#!/usr/bin/perl
if ($#ARGV == 0) {
	$ARGV[1] = "barakmich@gmail.com";
}
print <<FOO;
EHLO localhost
MAIL FROM: rootcow\@csua.berkeley.edu
RCPT TO: $ARGV[1]
DATA
From: RootCow\@csua.BERKELEY.edu
To: $ARGV[1]
Subject: $ARGV[0]

FOO
while (<STDIN>) {
	print;
}
print ".";
print "\n";
print "QUIT";
print "\n";
