my $Q=Games::QuizTaker->new(FileName => "File", Delimitor => ",");

##</code><code>##

sub _Print_Object{
  my $self=shift;
  require Data::Dumper;
  print Data::Dumper::Dumper $self;
}

##</code><code>##

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