Your code works fine for me if I make the following change:

    #my $Q=Quiz->new("FileName"=>"File");
    my $Q=Games::QuizTaker->new("FileName"=>"File");
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.