Select Code to Download

use WWW::Mechanize; 
use LWP::UserAgent; 
...

#die "Error: ", $response->header($realm) || 'Error accessing', 
# "\n", $response->status_line, "\n at $url\n Aborting" # unless $resp
+onse->is_success;

HTTP/1.1 502 Proxy Error ( The ISA Server denies the specified Uniform
+ Resource Locator (URL). ) 
Cache-Control: no-cache 
...
        Via: Time: 7/10/2006 7:08:15 AM GMT

        </LI></UL></FONT></TD></TR></TBODY></TABLE></BODY></HTML>