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

sub new{
  my($self,%arg)=@_;

  bless{
        _FileName   => $arg{FileName}||croak"No FileName Given",
        _Delimitor  => $arg{Delimitor}|| "|",
        _FileLenght => "0",
       }
}

sub _Print_Object{
  my $self=shift;
  foreach my $key(keys %$self){
    print"$key = $$self{$key}\n";
  }
}