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";
  }
}

##</code><code>##

#!/opt/perl5/bin/perl -w
use strict;
use Games::QuizTaker;

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