Take a look at the -s switch in perlrun or use the more sane Getopt::Long approach. Don't use a drill to pick your nose. (for obvious reasons)