#!/usr/local/bin/perl
$sname = ($ENV{'REMOTE_ADDR'});
use XML::Simple;
my $cust_xml = XMLin('../main/temp_xml', forcearray=>1);
while (($key, $value) = each(%$cust_xml)) {
   print "$key $value:\n";
   while (($k, $v) = each(%$value)) {
      print "$k $$v[0]\n";
   }
}
exit;
for my $customer (@{$cust_xml->{customer}}) {
   foreach (qw(first-name MI last-name)) {
      $customer->{$_}->[0] = uc($customer->{$_}->[0]);
   }
}
if ($sname ne "") {
   print "Content-Type: text/html\n\n";
}
print XMLout($cust_xml);