Select Code to Download

use POSIX qw/floor/;

...
  push @questions, splice @allquestions, $idx, 1;
}
return @questions;

local $/= '===';

...
push @questions, splice @allquestions, rand @allquestions, 1 for (1..$
+maxcount)

return @questions;