Select Code to Download

use HTML::Entities; # encode and decode things like <, >, and & 
use HTML::Form; # for form processing 
...
unless $response->is_success; 
print "Whee, it worked! I got that ", 
$response->content_type, " document!\n";

#> perl ./test.pl 
LWP::UserAgent::new: () 
...
Error at https://dtinterddt.digitalthink.com/cqweb/logon/default_conte
+nt.asp 
302 Object moved 
Aborting at ./test.pl line 16