#!/usr/local/bin/perl
$sname = ($ENV{'REMOTE_ADDR'});
use XML::Simple;
my $cust_xml = XMLin('../main/temp_xml', forcearray=>1);
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);