perl script

i want a perl script that i know names of companies of providers that have know php have more than 1 feedback like:
www.freelancer.com/users/search/ you can see that i write in perl ,i need to correct this script to receive names of companies of providers that have know php,problem in script that i did not know how to receive content of website .

perl script:

#!/usr/bin/perl

   use IO::Socket::INET;
	$data = "search=1&searchagain=0&extended=&username=&job_3=on&min_rating=1";
	$sock = IO::Socket::INET->new(Proto=>'tcp',
				      PeerAddr=>'http://www.freelancer.com',
				      PeerPort=>80);
	print $sock  "POST   http://www.freelancer.com/users/search/ HTTP/1.1\r\n".
		     "Host: www.freelancer.com \r\n".
		     "Accept: */*\r\n".
		     "Range: bytes=0-63\r\n".
		     "User-Agent: Opero\r\n".
		     "Content-Type: application/x-www-form-urlencoded\r\n".
		     "Content-Length: ".length($data)."\r\n".
		     "Connection: close\r\n\r\n$data";
	$answ = <$sock>;
	close $sock;
	print $answ;

Code (markup):