sub new
    {
    my $class = shift;
    my $self  = {len  => shift,
                 enc  => shift,
                 path => shift};
    $self->{file_first} = "filename";
    $self->{data_eins} = {};
    $self->{data_zwei} = {};
    $self->{data_drei} = {};
    $self->{data_vier} = {};
    bless $self, $class;
    return $self;
    }