Что не так в скрипте.
Ругается
scripts# ./send_mail
syntax error at ./send_mail line 12, near "$smtp_out"
syntax error at ./send_mail line 17, near "$smtp_out"
syntax error at ./send_mail line 22, near "$smtp_out"
syntax error at ./send_mail line 33, near "sysread"
Missing right curly or square bracket at ./send_mail line 43, within string
Execution of ./send_mail aborted due to compilation errors.
/scripts# cat send_mail
#!/usr/bin/perl
my $self = shift;
my @smtp_out = ();
use IO::Socket;
my $socket = IO::Socket::INET->new( PeerAddr => "192.168.1.222:2525" ) or die "ERROR: $!";
my $answer_data;
sysread $socket, $answer_data, 255;
$smtp_out[0] = "1: $answer_data";
syswrite $socket, "helo $self->{'se'}->{"192.168.1.222"}\r\n";
sysread $socket, $answer_data, 255;
$smtp_out[1] = "2: $answer_data";
syswrite $socket, "mail from:<$self->{'se'}->{"
user@domen.ru"}>\r\n";
sysread $socket, $answer_data, 255;
$smtp_out[2] = "3: $answer_data";
syswrite $socket, "rcpt to:<$self->{'p'}->{"
user@domen.ru"}>\r\n";
sysread $socket, $answer_data, 255;
$smtp_out[3] = "4: $answer_data";
syswrite $socket, "data\r\n";
sysread $socket, $answer_data, 255;
$smtp_out[4] = "5: $answer_data";
syswrite $socket, "$self->{'se'}->{"test"}\r\n";
syswrite $socket, ".\r\n";
sysread $socket, $answer_data, 255;
$smtp_out[5] = "6: $answer_data";
syswrite $socket, "quit\r\n";
sysread $socket, $answer_data, 255;
$smtp_out[7] = "7: $answer_data";
close $socket;