require 'socket'
server='pevw.nagano.ac.jp'
to='j14999xx@nagano.ac.jp'	# 編集して使うこと
from=to	# 実験なので同じアドレスにしておく
subj='test message'
body="Subject: #{subj}\n\n"+STDIN.read
#
s=TCPSocket.open(server,25) do |s|
	["HELO nagano.ac.jp", "MAIL from: #{from}",
	 "RCPT to: #{to}", "DATA"].each do |e|
	 	puts s.gets ; s.puts e
	end
	puts s.gets ; s.puts body ; s.puts '.'
	puts s.gets ; s.puts 'QUIT'
end