Select Code to Download

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

#! c:/perl/bin/perl.exe
use strict;
...
my $Sock = IO::Socket::INET->new('149.149.149.149',80) or die "Cannot 
+connect $@\n";

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

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