#! c:/perl/bin/perl.exe
use strict;
use warnings;

use Net::FTP;

my $ftp = Net::FTP->new("149.149.149.149", Debug => 0) || die "Cannot connect $@\n";





##</code><code>##

#! c:/perl/bin/perl.exe
use strict;
use warnings;

use IO::Socket;

my $Sock = IO::Socket::INET->new('149.149.149.149',80) or die "Cannot connect $@\n";

$Sock->read(my $data, 1024) until $Sock->atmark;

##</code><code>##

C:\Scripts>ESX_conn.pl
Cannot connect IO::Socket::INET: Cannot determine remote port