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;

##</code><code>##

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

my $Q=Quiz->new("FileName"=>"File");
$Q->Print_Object();