самый простой способ быстро получить данные из структуры XML с помощью запросов XPath в Perl.

Следующая структура кода объясняет, чего я хотел бы достичь:

my $xml_data = "<foo><elementName>data_to_retrieve</elementName></foo>";
my $xpath_query = "//elementName";
my $result_of_query = ... what goes here? ...
die unless ($result_of_query eq 'data_to_retrieve');

Очевидно, что применяется TIMTOWTDI, но что было бы самым простым способом сделать это?