use XML::LibXML;
my $xml = XML::LibXML->load_xml( ... );
my $value = $xml->documentElement->getElementsByTagName("customer_id")->[0]->textContent;
print $value, "\n";