Select Code to Download

<?xml version="1.0"?>
<quotelist>
...
    <source>Thomas Jefferson</source>
  </quotation>
</quotelist>

use warnings;
use strict;
...
my $result = $doc->find( $xpath );
print Dumper $result->string_value;
exit 0;