my $contents;
while (<FILE>)
  {
    $contents .= $_;
  }