sub file_contents
{
  local @ARGV = $FILE;
  local $/;
  my $contents = <>;
  close ARGV;   # Make EOF more obvious to Solaris Perl 5.8.8
  return $contents;
}