Wenn ich deine Zeile
use Switch 'Perl5', 'Perl6';
ersetze durch
use feature "switch";
oder
use 5.010;
verschwinden die seltsamen Syntaxfehler. Statt dessen kommen neue:
Bareword "DIV2" not allowed while "strict subs" in use ...
Du verwendest (z. B. in sub printUsage) ein Bareword statt einer my-Variablen als Filehandle, und du öffnest die Datei nirgends.