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

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