sub new {
        my $class = shift;
        my $self = {};
        $self->{DIR} = undef;
        $self->{DIRH} = undef;
        $self->{CONTENT} = [];
        bless($self,$class);

        $self->{DIR}=$_[0];
        return $self;
}