#!/usr/bin/perl -w 
 
use Socket; 
use strict; 
 
my($mailTo) = 'me@somehost.com'; 
my($mailServer) = 'mail.somhost.com'; 
 
my($mailFrom) = 'someone@somehost.com'; 
my($realName) = "The Master"; 
my($subject) = 'Test'; 
my($body) = "Test Line One. \nTest Line Two.\n"; 
 
$main::SIG{'INT'} = 'closeSocket'; 
 
my($proto) = getprotobyname("tcp") || 6; 
my($port) = getservbyname("SMTP", "tcp") || 25; 
my($serverAddr) = (gethostbyname($mailServer))[4]; 
 
if(! defined($serverAddr)){ 
die('gethostbyname failed.'); 
} 
 
socket(SMTP, AF_INET(), SOCK_STREAM(), $proto) 
or die("socket: $!"); 
 
my $packFormat = 'S n a4 x8'; # Windows 95, SunOs 4.1+ 
#$packFormat = 'S n c4 x8'; # SunOs 5.4+ (Solaris 2) 
 
connect(SMTP, pack($packFormat, AF_INET(), $port, $serverAddr)) 
or die("connect: $!"); 
 
select(SMTP); $| = 1; select(STDOUT); #use unbuffered I/O. 
{ 
my($inpBuf) = ''; 
 
recv(SMTP, $inpBuf, 200, 0); 
recv(SMTP, $inpBuf, 200, 0); 
} 
 
sendSMTP(1, "HELO\n"); 
sendSMTP(1, "MAIL From: <$mailFrom>\n"); 
sendSMTP(1, "RCPT To: <$mailTo>\n"); 
sendSMTP(1, "DATA\n"); 
 
send(SMTP, "From: $realName\n", 0); 
send(SMTP, "Subject: $subject\n", 0); 
send(SMTP, $body, 0); 
 
sendSMTP(1, "\r\n.\r\n"); 
sendSMTP(1, "QUIT\n"); 
 
close(SMTP); 
 
sub closeSocket { #close smtp socket on error 
close(SMTP); 
die("SMTP socket closed due to SIGINT\n"); 
} 
 
sub sendSMTP { 
my($debug) = shift; 
my($buffer) = @_; 
 
print STDERR ("> $buffer") if $debug; 
send(SMTP, $buffer, 0); 
 
recv(SMTP, $buffer, 200, 0); 
print STDERR ("< $buffer") if $debug; 
 
return( (split(/ /, $buffer))[0] ); 
}