use strict;
use warnings;

"print "This program will ask the user random questions from a file un
+til all the questions have been answered.\n";

open(QUESTFILE, 'questions.txt') or die "Couldn't open questions.txt: $!\n";
my @questions = <QUESTFILE>; # slurps up the entire file
close(QUESTFILE);