знатокам перла

sub send_mail {
my ($to, $from, $subject, @body)=$_;
my $sendmail="/usr/bin/sendmail -t -io -odq";
open (MAIL,"|sendmail") || dia " ошибка при запуске sendmail:$!";
print MAIL << END_OF_HEADER;
From: $from
TO: $to
Subject: $subject
END_OF_HEADER
foreach (@body) {
print MAIL "$_\n";
}
close (MAIL);
}
@body=("...");
send_mail ('test@mail.ru','ja@mail.ru','Test',@body);



#Best respect, $echo.

Через IO::Socket::INET конечно можно... но зачем ?
Используй Net::SMTP если тебе действительно нужен "raw"
SMTP доступ.
А если тебе просто почту отпрвлять - то Mail::Mailer.

$remote = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "localhost", PeerPort => 'smtp(25)', Type => SOCK_STREAM ); print $remote "HELO localhost\015\012"; $ret=<$remote>; ........................... ........................... close($remote);

   $remote = IO::Socket::INET->new(
      Proto    => "tcp",
      PeerAddr  => "localhost",
      PeerPort => 'smtp(25)',
      Type  => SOCK_STREAM
    );
    print $remote "HELO localhost\015\012";
    $ret=<$remote>;
    ...........................
    ...........................
    close($remote);

2предыдущий анонимус: нельзя ли поподробнее?