#!/usr/bin/perl -w

use XML::Simple;

use strict;

local $/;

my $data = XMLin(<DATA>);


print $data->{FILE_SIZE};

__DATA__
<?xml version="1.0"?>
<Document_Confirmation>
<FILE_NAME>ack_mr00000001.xml</FILE_NAME>
<DATE_RECEIVED>11/27/2001</DATE_RECEIVED>
<FILE_SIZE>2022</FILE_SIZE>
</Document_Confirmation>