Maybe consider using Getopt::Long instead of hand-rolling the argument parsing.

Also consider looking at line 171 in your real script, and looking at why that warning is thrown there. For example, if $ARGV[1] is not defined, then that warning will be thrown. Also see splain and warnings.