This function does the opposite of a shift.
(Or the opposite of a push, depending on how
you look at it.) It prepends
LIST to the front of
the array, and returns the new number of elements in the array:
unshift @ARGV, '-e', $cmd unless $ARGV =~ /^-/;