#!c:\perl\bin\perl -w

use XML::Simple;
use CGI::Carp 'fatalsToBrowser';

my $config = XMLin();

print "content-type:text/html\n\n";
 
print "<h1>Then</h1>";
foreach (@{$config->{bids}->{itemcode}}) {
  print $_, "<br/>";
}