#! /perl/bin/perl -w
use strict;

use XML::Simple;
my $file;
{
local $/='';
$file=<DATA>;
}
my $xml=XMLin("$file");
my $progress = $xml->{dbf}{progress}{record};
print $#$progress;

__END__
<?xml version="1.0" standalone="yes"?>
<escinfo>
	<dbf>
		<progress>
			<record>
				<title>11111</title>
				<id>abcd</id>
			</record>
			<record>
				<title>22222</title>
				<id>efgh</id>
			</record>
		</progress>
	</dbf>
</escinfo>