Select Code to Download

use WWW::Mechanize;
use LWP::UserAgent;
use MIME::Base64;
...
for my $key ( $response->header_field_names() ) {
print $key, ":", $response->header( $key ), "\n";
}