Generate an ID for each question

gen.pl

@@ -6,6 +6,7 @@ use warnings;
 
 use JSON;
 use IPC::Open2;
+use Digest::MD5 qw(md5_base64);
 
 my @markdown = qw/cmark --smart --safe/;
 
@@ -88,6 +89,7 @@ while (<>) {
     add();
     %last_option =
       (
+       "id"      => md5_base64($ARGV . $2),
        "option"  => md($2),
        "correct" => $1 eq "+" ? JSON::true : $1 eq "-" ? JSON::false : JSON::null
       );