#serialize.pl
use strict;
use warnings;
use Storable;
use Data::Dumper;

my $no_class = retrieve('serialize.bin');
print Dumper $no_class;
$no_class->increaseAge();
[download]

The output shows what was retrieved and what was missing:

$VAR1 = bless( {
                 'age' => 23,
                 'gender' => 'girl',
                 'name' => 'Eva'
               }, 'MooseClass' );
Can't locate object method "increaseAge" via package "MooseClass" at 1
+.pl line 46.
[download]