Select Code to Download

sub v {
  ord($_[0]) - ord('A');
}

print v('I')*26 + v('V'), "\n";

shell$ perl ./iv65536
229
shell$

print (v('I')+1)*26 + v('V'), "\n";

shell$ perl ./iv65536
9shell$