Perl: Off-by-one in argv reading