#!/usr/local/bin/perl -w 

use strict;
use lib "$ENV{'GAIM'}/perllib";
use XML2Table;

my $xml_doc = join "\n", <STDIN>;
my @FieldNames = ();
my @Table = ();
my $ResultSetTag = "ResultSet";
my $RecordTag = "Result";

XML2Table::parse($xml_doc, $ResultSetTag, $RecordTag, \@FieldNames, \@Table);

print "#", join " ", @FieldNames, "\n";
for my $row ( @Table ) {
    print join " ", @$row, "\n";
}

