#!/usr/bin/perl 
use strict;

use IO::Socket::INET;

$| =1;

my $socket = IO::Socket::INET->new(
	PeerHost =>'208.91.198.132',
	PeerPort =>'12000',
	Proto => 'tcp',
) or die "cannot create a socket $@\n";

print "TCP Connection Creatred Sucessfully\n";