Because the object is to make easily-readable and reusable code, not code this in the smallest number of characters? The getInput sub is a standard one I include in almost all of my command-line scripts, normally it would just be included via:

use Library::General;

Pasting it into the code was just for illustration.