#! perl -slw
use strict;
use Storable qw[ freeze ];
use XML::Simple; $XML::Simple::PREFERRED_PARSER = 'XML::Parser'; 

binmode STDOUT;
print freeze XMLin( $ARGV[ 0 ] );


##</code><code>##

for( 1 .. 1000 ) {
    my $xml = thaw `xmlSto.pl junk.xml`;
    print mem $_; <STDIN>;
}