#!/usr/bin/perl -w
use strict;
use Data::Dumper;
my $fancy_struct = {
  a => "aaah",
  b => "beeh",
};

my $dumper = Data::Dumper->new([$fancy_struct]);
$dumper->Purity(1);

my $serialized = $dumper->Dump;

print "Serialized form: $serialized";

my $VAR1;
eval $serialized || die;
my $new_fancy_object_clone = $VAR1;
print "a = $new_fancy_object_clone->{a}\n";