Select Code to Download

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

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

sub new {
  my ($class,%arg)=@_;
...
        _FileLength => "0",
       }, $class
}