my $result = $mech->get( $url ); #### $VAR1 = bless( { '_protocol' => 'HTTP/1.1', '_content' => ' 404, '_headers' => bless( { 'x-meta-generator' => 'IBM WebSphere Studio', 'connection' => 'close', 'client-response-num' => 1, 'last-modified' => 'Wed, 08 Oct 2003 17:22:25 GMT', 'date' => 'Tue, 01 Jun 2004 14:41:53 GMT', 'client-peer' => '217.127.206.73:80', 'content-length' => '1045', 'client-date' => 'Tue, 01 Jun 2004 13:00:12 GMT', 'etag' => 'W/"1045-1065633745705"', 'content-type' => 'text/html; charset=ISO-8859-1', 'via' => '1.1 toplist.linkworld.ws', 'title' => 'Burke-eSolutions. Control Acceso Clientes', 'server' => 'Apache Coyote/1.0' }, 'HTTP::Headers' ), '_msg' => '/error/HTTP_BAD_GATEWAY.html.var', '_request' => bless( { '_content' => '', '_uri' => bless( do{\(my $o = 'http://toplist.linkworld.ws/cgi-bin/rankem.cgi?id=pala')}, 'URI::http' ), '_headers' => bless( { 'user-agent' => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)', 'accept-encoding' => 'identity' }, 'HTTP::Headers' ), '_method' => 'GET' }, 'HTTP::Request' ) }, 'HTTP::Response' );