proxy with perl script

Question

#!/usr/bin/perl -w

use IO::Socket;

my $sock = new IO::Socket::INET (
   PeerAddr => 'remotehost',
   PeerPort => '1230',
   Proto => 'tcp',
 ) or die "ERROR in Socket Creation : $!\n";


print "TCP Connection Success.\n";

# write on the socket to server.
$data = "this is the data to send";
$socket->send($data);


# read the socket data sent by server.
$data = <$socket>;
print "Received from Server : $data\n";

sleep(10);

close($sock);

I am unable to send and receive response from the remotehost using the above code...any ideas?

Thanks Ashish

Answer 1

You declared my $sock when you created the socket. Then later you use

$socket->send($data)

This should be

$sock->send($data)

and later

$data = <$sock>

Answer 2

When working with network data, it is useful to do this after declaring your socket:

$sock->autoflush(1);

By default your IO is buffered and most likely the $data variable is less than buffer size. In such a case OS is waiting for more data before sending full buffer to the remote host. Setting autoflush disables buffering.