foreach my $file (@files){
  open FILE, $file or die $!;
  while (<FILE>){
    $xml .= $_;
  }
}
$req->content($xml);