my $content = $ua->request($req)->content;
 # munge $content here
 # $content = uc $content;
 print OUT $content;

 my $title = $ua->request($req)->header('Title');
 warn $title;  # 'Empty Result'