my $source;
{
  open INPUT, $file;
  local $/ = undef;
  $source = <INPUT>;  
  close INPUT;
}