Read from perl socket

[kaps]

Hi,

How do I read data from perl socket.
I tried these three methods in bold but nothing worked.

use strict;
use IO::Socket;
use HTTP::Request::Common;
use LWP::UserAgent;
use LWP::Simple;
 
my $host = shift || ‘mysite.com';
my $port = shift || 80;
my $sock = new IO::Socket::INET(
                  PeerAddr => $host,
                  PeerPort => $port,
                  Proto    => 'tcp');
$sock or die "no socket :$!";
# send message to server
 
my $ua = LWP::UserAgent->new;
$ua->request(POST 'http://mysite.com/check.cgi', ["value1" => "xyz","passwd" => "value2", "abc" => "existing"]);
 
my $query = $ua->request(POST 'http://mysite.com/check.cgi', ["value1" => "xyz","passwd" => "value2", "abc" => "existing"]);
print $sock $query;
 
 while (<$sock>) {
print;
}
 
 
 My $buffer;
recv ($sock, $buffer);
my $result = recv ($sock, $buffer);
print $result;
 
 
 my $data;
$sock->read($data,1024) until $sock->atmark;
my $result = $sock->read($data,1024) until $sock->atmark;
print $result;
 

Thanks in advance.