#!/usr/bin/perl
use XML::Simple;

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

######XML PARSE##########

$ipath = "e:/cars/";

$str = ".xml";

opendir THEDIR, "$ipath";
@xmlfile = grep (/$str/, readdir THEDIR);
closedir THEDIR;

foreach $file (@xmlfile){
$xml = $ipath.$file;
}