#!\C:\Perl\bin\perl.exe
#
#
use IO::socket;

my $sock = IO::Socket::INET->new(qq(127.0.0.1:4000));