##
#!c:\perl\bin\perl -w
use XML::Simple;
use CGI::Carp 'fatalsToBrowser';
my $config = XMLin();
print "content-type:text/html\n\n";
print "Then
";
foreach (@{$config->{bids}->{itemcode}}) {
print $_, "
";
}
####
push @{$config->{bids}->{itemcode}}, 'newcode43545';
print "Now
";
foreach (@{$config->{bids}->{itemcode}}) {
print $_, "
";
}
XMLout($config);