$ perl -MGetopt::Std -E'getopt(\%opts); say 1+$#ARGV;' -- -f a b c d
3

$ perl -MGetopt::Std -E'say Getopt::Std->VERSION'
1.06