sub new {
  my ($class,%arg)=@_;
  bless{
        _FileName   => $arg{FileName}||croak"No FileName Given",
        _Delimiter  => $arg{Delimiter}|| "|",
        _FileLength => "0",
       }, $class
}