21 lines
307 B
Perl
Executable file
21 lines
307 B
Perl
Executable file
#!/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";
|