Select Code to Download

use XML::Simple;
...
    Print "Manufacturer: $item->{manufacturer}\n";
}

$VAR1 = {
...
            'manufacturer' => 'MORPHY RICHARDS'
        },
    };