sub FETCH {
        my $self = shift;
        my $Id = shift;         
        if (exists $self->{CURRENT}{$Id}) {
            return $self->{CURRENT}{$Id};
        } else {
            return "$Id doesn't exist";
        }
    }