socket not sending or receiving data

[anuradha.k.r]

hi,
I 'v e written both the server and client side socket programs in
perl( a very small one).My socket is created and shows that the
connection is established with the client.however I am not able to
receive data in server side.I think the client sends the data
properly.Someho w receive does not happen.
Can someone tell me what could be wrong?
My code is part of the sample programs available for socket prgmng in
the net.
Here is the code for both client.

Client:
# !;/usr/perl -w

#client part

use IO::Socket::INE T;
$sock = new IO::Socket::INE T(
PeerAddr => '130.10.5.76',
PeerPort => '7070',
Proto => 'tcp'
);
die "could not create client socket: $!\n" unless $sock;

print "$sock Hello there!\n";

#send message

print "enter message to be sent:";

#while($msg = <STDIN>){
$msg = <STDIN>;

chomp $msg;
if($msg ne ''){
print "\nsending message\n";
if($sock->send($msg)){
print "\ndone\n";
print $msg;
}
else{
print "message not sent\n";
}
}
close($sock);

print "socket closed\n";

############### ############### ###########

Server:
# !/usr/perl -w
#socket server

use IO::Socket::INE T;

#create,bind,li sten socket
$sock = new IO::Socket::INE T(
Localhost => '130.10.5.38',
LocalPort => '7070',
Proto => 'tcp',
Listen => 1,
Reuse => 1,
);
die "Could notcreate socket: $!\n" unless $sock;

print "socket created\n";
$new_sock = $sock->accept();
while(defined(< $new_sock>)) {
print $_;
}
print "$new_sock" ;

$msg = "\nReceivin g message\n";
#while(1){

if($new_sock->recv($text,4)) {
if($text ne ''){
print "\nMessage received\n";
print $text;
}
else{
print "\nMessage is null\n";
print $text;
}
}
else{
print "\nReceive not success\n";
}
#}

close($sock);
close ($new_sock);
print "server socket closed";

regards & thanx,
AV