#! /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]
www.com | www.net | www.org
No recent polls found