#!/usr/bin/perl
use IO::Socket::INET;
use Convert::EBCDIC;
my ($socket,$client_socket);
$socket = new IO::Socket::INET (
PeerHost => '1.2.3.4',
PeerPort => '6106',
Proto => 'tcp',
) or die "ERROR in Socket Creation : $!\n";
print "TCP Connection Success.\n";
# read the socket data sent by server.
$data = <$socket>;
print "Received from Server : $data\n";
$data = ebcdic2ascii($data);
print "Received from Server after : $data\n";
 
sleep (10);
$socket->close();