#! /usr/bin/perl -w 

use strict;
use diagnostics;

use XML::LibXML;
use Storable qw( freeze thaw );
use Data::Dumper;
use Devel::Peek;

my $node = XML::LibXML::Element->new('foobar');

my $serial = freeze \$node;

my $a = thaw($serial);

print Dump($a);
[download]