my $data;
open(READIT,"<$file");
  while (<READIT>) { $data .= $_; }
close(READIT);

my $ref = XMLin($data);