package Games::QuizTaker;
use strict;
use Data::Dumper;
use Carp;

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

sub Print_Object{
  my $self=shift;
  print Dumper($self);
}
1;