use XML::Simple;

  my $data = "";
  { local $/; $data = <STDIN>; }
  my $ref = XMLin($data);
  print $ref->{xml-key};