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

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