my $output;
while (<report>) {
  $output .= $line;
}
print FILE $ouput;