use LWP::Simple;

print @{[head('http://jagadish.blogspot.com/index.html')]}[2];