$response = $ua->request(   <-- your details go here
my @headers = $response->header_field_names();
foreach my $h (@headers) {
    print "$h = ",$response->header($h),"\n";
    }