Your code is fine; the problem is with the URL. In general, when testing this sort of code, check the validity of the URL before assuming a problem with your Perl code. What do you get when you plug that URL into a browser?
Removing the "1" (i.e. my $url='http://www.google.com/';) gives:
New url :http://www.google.com/
Response Headers:
Cache-Control: private, max-age=0
Date: Tue, 07 Feb 2012 11:20:59 GMT
Server: gws
Content-Type: text/html; charset=ISO-8859-1
...
If you think the URL you provided should be valid, contact Google for a reason why it's not available.