Есть скрипт на Perl - использует сокеты. Текст приведен ниже. На одной машине работает нормально, на другой появляется следующая ошибка - Insecure dependency in connect while running with -T switch at /usr/local/lib/perl5/5.8.0/i686-linux-thread-multi/IO/Socket.pm line 114. Что это?

#!/usr/bin/perl -w

use MFilter;
use Net::DNS;
use IO::Socket;
use Net::Telnet;

$r = testAddr2($ARGV[0]);
print $r, "\n";

sub testAddr2 {
$from = shift;

if($from !~ /^[a-zA-Z_\.-][a-zA-Z0-9_\.\-\d]*\@[a-zA-Z\.\-\d]+\.[a-zA-Z]{2,4}$/)
{
print "e-mail неправильного формата!<br>\n";
return 0;
}

my $dns = "localhost";        # DNS Сервер
my $res = new Net::DNS::Resolver;

$res->nameservers($dns);
$res || return 0;

$from =~ /.*\@(.*)$/;
my $domain = $1;

my @mx = mx($res, $domain);
@mx || return 0;

my $rr = shift(@mx);
$mxserver = $rr->exchange;

$rr || return 0;

print $mxserver, "\n";

return testAddr($from, $mxserver);
}

sub testAddr {
        my($to, $host) = @_;

my ($rd);
eval {
my $handle = IO::Socket::INET->new(
Proto  => "tcp",
PeerAddr  => $host,
PeerPort  => 25);

if ($handle) {
$handle->autoflush(1);

# Hello From Server
$rd = <$handle>;
chomp($rd);
print $rd, "\n";
if ($rd !~ /^220.+$/) {return 0;}

print $handle "HELO myhost\n";

# HELO Reply
$rd = <$handle>;
chomp($rd);
print $rd, "\n";
if ($rd !~ /^250.+$/) {return 0;}

print $handle "MAIL FROM: <>\n";
# MAIL FROM Reply
$rd = <$handle>;
chomp($rd);
print $rd, "\n";
if ($rd !~ /^250.+$/) {return 0;}

print $handle "RCPT TO: $to\n";
# RCPT TO Reply
$rd = <$handle>;
chomp($rd);
print $rd, "\n";

close $handle;
}
};

if($@) {
if($handle){
close $handle;
}
return 0;
        }

return ($rd !~ /^250.+$/) ? 0 : 1;
}

• Perl+Socket=great problem!, Асен Тотин, 01:14 , 08-Июн-05, (1)