use strict; use warnings; use Storable qw/nstore/; my $rep = bless { phrase => 'All your base belong to us' }, 'SomeClass'; my $file = 'my_file_name'; eval { nstore($rep, $file) || warn "Storable::nstore failed with $!\n"; }; if ($@) { warn "Failed to store the object: $@\n"; }