#!/usr/bin/perl

use strict;
use warnings;

use XML::LibXML;
use Devel::Size qw/total_size/;


my $s1 = str1();
my $x1 = XML::LibXML->new();
my $p1 = $x1->parse_string($s1);

my $s2 = str2();
my $x2 = XML::LibXML->new();
my $p2 = $x2->parse_string($s2);

print 'Used Bytes: ', total_size($p1),"\n";
print 'Used Bytes: ', total_size($p2),"\n";

sub str1 {
    return <<END;
<?xml version="1.0" ?>
<Kunden xmlns="xxx">
    <Kunde id="45325">
        <Name>Meier</Name>
        <Vorname>Peter</Vorname>
        <Umsatz>1423</Umsatz>
        <Kaeufe>28</Kaeufe>
    </Kunde>
    <Kunde cc:id="45326" xmlns:cc="yyy">
        <Name>Schmidt</Name>
        <Vorname>Harald</Vorname>
        <Umsatz>7421.00</Umsatz>
        <Kaeufe>19</Kaeufe>
    </Kunde>
</Kunden>
END
}

sub str2 {
    return <<END;
<?xml version="1.0" ?>
<Kunden xmlns="xxx">
    <Kunde id="45325">
        <Name>Meier</Name>
        <Vorname>Peter</Vorname>
        <Umsatz>1423</Umsatz>
        <Kaeufe>28</Kaeufe>
    </Kunde>
    <Kunde cc:id="45326" xmlns:cc="yyy">
        <Name>Schmidt</Name>
        <Vorname>Harald</Vorname>
        <Umsatz>7421.00</Umsatz>
        <Kaeufe>19</Kaeufe>
    </Kunde>
    <Kunde id="45325">
        <Name>Meier</Name>
        <Vorname>Peter</Vorname>
        <Umsatz>1423</Umsatz>
        <Kaeufe>28</Kaeufe>
    </Kunde>
    <Kunde cc:id="45326" xmlns:cc="yyy">
        <Name>Schmidt</Name>
        <Vorname>Harald</Vorname>
        <Umsatz>7421.00</Umsatz>
        <Kaeufe>19</Kaeufe>
    </Kunde>
</Kunden>
END
}

$ ./dom_size.pl
Used Bytes: 72
Used Bytes: 72