#!/usr/bin/perl

# use module
use XML::Simple;
use Data::Dumper;

print "Content-type: text/html\n\n";

# create object
$xml = XML::Simple->new();

print "Object Created<br>";
# read XML file


#$fh = IO::File->new('http://www.q.hpixml.com/servlet/HpiGate1_0?forward=YES&efxid=0503506&password=testing&initials=mk&function=SEARCH&vrm=fp08rou&XML=YES&product=HPI11&devicetype=XM');

$fh = "d:\\inetpub\\wwwroot\\cgi-bin\\classads\\testxmlfile.xml";  

print "$fh<br>";

$data = $xml->XMLin('testxmlfile.xml');
 
print "File read<br>";

# print output
print Dumper($data);

print "done!!";