Thanks, I missed the fact that I had hard coded the store file name but had passed the reference to the file name. The sub store_object {} should read as follows:

sub store_object {
    my ( $self, $sref_file ) = @_;

    # Caller Check
    my $return = $self->_caller_check();
    if ( $return ) {
        print STDERR $$return . "\n";
        return $return;
    }
    Storable::store ( \%{ $self }, $$sref_file );
    return undef;
}
[download]

Peace Out,

DeadPoet